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3 COPY LOG7A01 ** MAP EC HISTORY ** 002500 293C 198 DC A(ENTPT 
UR Ro ol kai doko koto dao kok dai kick ick kd doko koto i kk tok kk kok ak kkk tok kk ak ok ak 199 OE Pee Oe i ey et fre eae eee eee Ty oe ge eo eee 
5. * VANIER TITS LS SS SSCS S SSS SCSSSSSOSSSOSS CSS CSTCOCSCCCOSCCSCLSCCCSSCLCCCCCSL SS eLTOCT CL ST Te te 
6 * Ke A Hk PREREQUISITES mk KK x 201 ** ae 2c 
7] * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR fo een eK 
: : NONE : San ioe ae aC enee THE eee RULE TO guNVen ee TO OBTAIN THE PROPER eK 
NOME TESSOOSS SS SSS SSS SSS CSCSC SSS SSCS SSS SSCSSOSSCOSSOCCOCSCL SS CSE SSS CSS SSCS SS Se TS 205 ** wae TEDECR UEC MESSAGE (S) « THERE ARE POUR PAGLES GeEb con Mads +# 
11 * * 206 ** PURPOSE THEY ARE: *% 
12 * KK MODIFICATIONS KK * 207 ** Ko 
13 * * 208 ** STEP AND RULE ADDRESS TABLE * * 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
16 FRC IO IO II IOI III IO OR CK IO IO RoR ok a a a OK RR Ak tk REC ak ok ak akc ok ak ake kc aks ake ok 211 ** ENTRIES ARE AS FOLLOWES x 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA OK 
18 * KX REAtS INCORPORATED KK * 213 ** B THE STEP NUMBER IN DECIMAL * 
19 * * 214 ** C AN EQUATE FOR THE STEP NUMBER x & 
20 * NONE * 215 ** eK 
21 * * 216 ** RULE INFORMATION TABLE eK 
PORTE STS S SSS SSC CSC SSO SSS SSS SSS CSCOCCSC SSC SCS CCS CSS CSCO SSS SS PS CSL SL S 2 2 2 2 2 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE aK 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN eK 
24 * HK % SPECIAL INSTRUCTIONS HACK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * x 
25 * * 220 ** INDICATED WITH A X*OOOO' FOR THE RULE EQUATE. OK 
26 * NONE * 221 ** 3K 
27 * * 222 ** $QUES * 
PASTS CSS SS SCOCSCSCSE SSC SCOSSS SECLCSCSCCC£S SSS SSS SSCS SS SSS CSCS CSCS SSS SSL CSS SSS LS 2S Se 223 ** A) RULE EQUATE X‘01008 ke 
29 * * 224 ** 3 ADDRESS OF THE YES LEG RULE * 
30 * % * E. C. HISTORY RK * 225 ** kK 
31 * * 226 ** SFIXT * x 
32 * DATE 17AUG78 DATE 10JAN79 DATE DATE * 227 ** A) RULE EQUATE xX*t0101' ** 
aa ‘i E.C. 755391 EeC. MS TS222 Be C-s E.C. = ee ii B) ADDRESS OF MESSAGE TO PRINT % 
x 
35 OI OGIO III IICICICIGO OR OR ICICI I I I a kok gatokiok ak ak ak ak ateak 230 *«* $STOP Kk 
002500 37 I7A01 START X5 25008 START ADDRESS OF ALL 'I' TYPE PROG 231 ** A) RULE EQUATE X*'0102! ek 
000100 38 OQUES EQU) = X'0100! EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * 
000101 39 OFIXT EQU  X'0101' EQUATED VALUE FOR MDI STATEMENT 233 ** 4k 
000102 40 @STOP EQU xX'0102! EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO 40% 
000200 41 @GOTO EQU X'*0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! eK 
000201 42 @CALL EQU X'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B ADDRESS OF MESSAGE 2k 3K 
000300 43 @INPT EQU X*0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO OK 
000400 UY @QUXX EQU X'*OQO4008 EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE i 
000500 45 @aTuUxXx EQU xXx'0500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE aK 
000600 46 @NVLD EQU x'o6008 EQUATED VALUE FOR MDI STATEMENT 241 *x aK 
000000 ~ 47 EQ EQU X'0000! EQUATE FOR EQUAL 242 ** $CALL ok 
000004 48 NE EQU xX*OoOo4! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE x*0201! 1 3 
000008 49 HI EQU x'ooos8st EQUATE FOR HIGH 2YU4 ** B) ADDRESS OF MESSAGE a 
00000C 50 NH EQU X'OO0O0C! EQUATE FOR NOT -HIGH 245 ** C) NAME OF MAP TO CALL aK 
000010 51 LO EQU xXx'0010! EQUATE FOR : 2U6 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'O0014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE OK 
000010 53 LT EQU Xx'0010! EQUATE FOR LESS THAN 248 ** 3K 
00000C 54 LE EQU X*OQOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU x'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! * 
000014 56 GE OU x'o0014! ESUATE FOR GREATER THAN OR EQUAL TO 251 ** B INPUT TYPE EBCDIC OR HEX) KK 
000200 57 ON EQU X¥'0200° EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE a 
000202 58 OF EQU X'0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA OK 
000204 59 MX EQU X'O204! EQUATE FOR MIXED 254 *x E) LENGTH OF INPUT 1K 
000000 60 EBC EQU x'0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA 5 
000001 61 HEX EQU X'0001! EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA 2k 
000001 62 XTRNL EQU xX'0001' EQUATE FOR EXTERNAL REFERENCE 257 ** HK 
000000 63 INTRNL EQU X*'Q000! EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX ‘ eK 
000000 64 PARM EQU xX*'OQ0O00! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE x'to4doo? 2 
000001 65 DA ESu x'oo0o18 EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE OK 
000002 66 UA EQU xX'0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS BECONDA me 3K 
000000 67 DUMMY EQU x'o0o00! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDK Y) * 
001800 69 PID EQU *—-X'ODO0O0! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I BYTES aK 
000232 70 PTYPE EQU *—-X*22CE!t ADDRESS OF PROCESSOR TYPE FIELD 264 *x F) PARAMETER TO PASS TO TU 
00180C 71 STEPNUM EQU PID+X*OOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER 3K ok 
00180E 72 OPWD1 EQU PID+X*'OOOE!® ADDRESS OF OPTTON WORD ONE 266 ** KK 
001810 73 OPWD2 EQU PID+xX*'0010'° ADDRESS OF OPTION WORD TWO 267 ** STU XX KK 
001818 74 TUSTATUS EQU PID+xX'001788 ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE xX*'0500' * % 
OO181A 75 TUWORK EQU PID+X'OO1TA! ADDRESS OF TU WORK AREA 269 ** B ADDRESS OF YES LEG RULE *% 
OO0189A 76 TUPARM1 EQU PID+X*OO9SA* ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS kK 
00189C 77 TUPARM2 EQU PID+xX*OO9C" ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COHPARE TO MAKE ON RESULTS a 
O00189E 78 TUPARM3 EQU PID+X'OO9E*t ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS * 
0018A0 79 TUPARMYG EQU PID+X*QOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE %& 
0018A2 80 TUPARMS EQU PID+X*OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES oe 
0O018A4 81 TUPARMN6 EQU PID+X!OOA4'? ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU eK 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
0018A8 83 TUPARM8 BOU PID+X*OOA8! ADDRESS OF PARM 8 POINTER 277 ** 2 
OO18AA 84 TUPARMYI EQU PID+X'QOOAA'! ADDRESS OF PARM 9 POINTER 278 ** SNVLD Ok 
OO018AC 85 TUPARM10 EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 ** RULE EQUATE X*'06008 ak 
OO18AE 86 TUPARM11 EQU PID+xX'OOAE! ADDRESS OF PARM 11 POINTER 281 ** kK 
0018B0 87 TUPARM12 EQU PID+X'tOOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X*OOB2' ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT aK 
0018B4 89 TUPARM14 EQU PID+X*'OOB4' ADDRESS OF PARM 14 POINTER 284 **x THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X*OQOB6'* ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ae kc 
0018B8 91 TUPARKM16 EQU PID+X'tQOOB8! ADDRESS OF PARM 16 POINTER 286 ** * & 
OO18BA 92 TUMSGWTR EQU PID+X'OOBA*® ADDRESS OF -> TO COMMON MSG WRITER 287 ** A NAME OF ENTRY POINT * 
0018BE 93 TUUA EQU PID+X*OOBE!? ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE aK 
0018C0 94 TUDA EQU PID+X*'OQOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 *%* kk 
9018C2 95 TUBUFF ESu PID+X'O0C2!* ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX'0QO000? % 
0018C4 96 TULAST EQU PID+4+xX!'O0OcC4? ADDRESS OF LAST ADDRESSABLE WORD 291 ** ok 
0018C6 97 TURESULN EU PID+x'OQOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE aK 
0018C8 98 TURESUL EQU PID+xX*'OQOC8*t ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0018FC 99 MAPNAME EQU PID+X*OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * * 
001948 100 TUINPT EQU PID+X*01488 ADDRESS OF $I1INPT DATA 295 ** xk 
0O0196F 101 PARMARA FOU PID+X*OQO16E* ADDRESS OF $INPT INPUT AREA 296 ** A SOuGEE FOR START OF MESSAGE BLOCK * * 
0019B8 102 @DCADD1 EQU PID+xX'O1B8°! MDI POINTER 297 ** B NUMBER OF LINES OF MESSAGE aK 
OO19BA 103 @DCADD2 FOU PID+X'O1BA® MDI POINTER 298 ** C LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+X'O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE OK 
0019D0 105 DEVADD EQU PID+xX'QO1DO0O! ADDRESS OF DEVICE ADDRESS TABLE 0O 300 ** E) LENGTH OF FOLLOWING LINE #Ok 
0019DA 106 DEVADD1 EQU PID+X*O1DA* ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F SECOND LINE OF MESSAGE OK 
OO0O19E4 107 DEVADD2 EQU PID+X'OTEY? ADDRESS OF DEVICE ADDRESS TA 2 302 ** G ETC. OK 
0019EE 108 DEVADD3 EQU PID+X*tO1EE! ADDRESS OF DEVICE ADDRESS TA 3 303 ** ok 
0019F8 109 DEVADD& EQU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TA TT SOU KK KI IIR RIO IRI RR I RRR IR OIOROR IOI OR OR ROR OI RR RRR ROR ICG ak ak ak 
001A02 110 DEVADDS EQU PID+x'0202' ADDRESS OF DEVICE ADDRESS TA 5 305 aOR KG ok folk ik aK gk a kkk iokok kok dak fokok kk tok oki kag kk Rog i aa kkk kak gpk ake ttc 
QOTAO0C 111 DEVADD6 EQU PID+X"0O20C! ADDRESS IF DEVICE ADDRESS TA 6 
001A 16 1c DEVADD7 Be ae erore wero" ADDRESS OF DEVICE ADDRESS TA 7 
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NLA Ne NL XN 7 we . / NLL we a 
TT CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE 05 I7A01 --- CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1107+* BIT HEX 
Boo. Foro eee 1108+B48 EQU 16 0 g PROBLEM PROGRAM CONTROL BITS 
002912 196E 993+ DC AL2 (PARMARA) 7 _ : 000010 11001B00. Eon 49 4 , A 
SOneNOOUEH Ge RipcaEEy eee ee een kenemanly 900012 1110#850 «FOU 18 2 2 * THESE BITS ARE USED WITH THE 
Suede: once Boe DE OR POOSEY 000013 11114B51  EQU 19 3 1 * SECOND OPTION WD AND ARE TO 
ee ee gage be TTA IB 000014 1112#B52  EOU 20 i 8 * BE ASSIGNED BY EACH PROGRAMMER 
002918 FICIF7FS 997+ DC CL4'7A78 990014 iigrboe weee, ae 4 g : 
003918 5001 999% DE «ALS (XTRNE 000016 11184354 4 =EOU 22 6 2 * 
1000 NO0065 $TUXX T7AIS (91,00 ,20, 07= (900263) ,YES=N00067, C= (C00260) a Weeoee EU oa : 4 : 
002920 0500 Joo1sno0065 = DEA (aT UX) 900018 ee ee : ‘ . 
002922 2936 10024 DE —-AL2.(N00067) 900019 pene eau, tee aa 4 
002924 33c2 1003+ DC A (T?A05) OOO0TA yiaeceoe, ou 2s 10 2 : 
002926 0000 1004+ BC AL2 (£9) 9000 18 yaatheG: ween. oe a : : 
Goeeee. oo! D0Re pe REGS? 00001D 1121+B61 EQU 29 13 4 x 
Neoeoe. oo 1009t WOR 00001E 11224362 EGU 30 14 2 x 
00292B 00 1007+ ALIGN WORD 0000 1E ee ees? ceo’ ae 1 é : 
ogz9zc 68000 Toes  ceraee 00001 1124+CH EQU 30 14 2 CHARACTER SUPPLIED 
Bee age “eden 19102 LIGN Wo 00001F 11254CMP EQU 31 15 1 COMPARE OPERATION 
ae i ae i 002BE8 0000 112740PTN3 DE = X*00008 PROGRAM OPTION CONTROL WORD 3 
002930 1965 10114 DC AL2 (BARMARA) 1127+0 
AOEGLUNOUEE: Reo tae 1129+* © MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS CS 
GGZee2 010) ape ee oe enoniy 1130+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 
Vee Weare 1018 N00067 $FIXT Pte P00266) 1131+* 2 EXPECTED INTERRUPT XI 19 CS STATUS INTERRUPT ERR CE 
002936 0101 1016+N00067 DC MOE TxT) eG ee evens SEN A (I~ 7) 
002938 2BI5 A Be ee aucy 1134+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 
902934 0000 1018 «BS, AES (DUNMY) 1135+* 5 HARD ERROR FOUND HE 13 O10 CC ERROR Tocc 
2 PELE Pree uke s Ahad Wes weUdS SNES Reese oe ees 5s 0a Oo ee ee 1136+* 6 WRONG INTR LEVEL E 
1059 SAS TAEAR ARIA LeT SEAT DOTS a OPO Le EA TPE ERRORS Tee a eT CeCe TERE EERE TES CeCe es 7 NO INTR per eerey ae 15 INTERRUPT CC ERROR INCC 
1022 ** 
000020 11394MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 
1928 nn oeernite Se ugiee FU 2 Eh EIRGH ECHR TED, OU TATERRUPR 
He HK He a a fe a eK KK OK 2K ee ok OK + 
1032 RRR RE ERA TG4 500s cso eens ee eee te a ee 000023 1142+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
1059 ENTP? EP=A. STEP=00001 000024 11434+XE  EQU 36 i g EXPECTED ERROR RESPONSE 
1028+ pc. 6cL2tht 000025 114H4HE EQU 37 5 4 HARD ERROR, 8 RETRIES 
ROSSaE. Sete 1039 De OR CMO 000026 11454S$LE EOQU 38 6 2 INTERRUPT ON WRONG LEVEL FRROR 
Wega (2e0 1050" ETRY SbeB see e=00037 000027 1146+NT  EQU 39 7 1 NO INTERRUPT EXPECTED E 
10214 be CL! The 000028 11474CS EQU 40 8 g CYCLE STATUS IN PROGRESS 
nooo oe. Oyce 3 00037 000029 11484+CSA EOD 41 9 4 CYCLE STEAL AVAILABLE 
Ce eee 1033" ENTPT EB=C,STEP=00019 000028 11494CE EOU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
cet ne ee 000028 1150+ISBON EQU 43 11 1 ISB BITS ON (1-7) 
SOON. “Dene 103dt De 00019 0000 2c 1151+4NG  EQU 4 12 8 TEST UNIT RESULTS NO GOOD 
§05948 9606 1036" De ALD (DUH these 1183sNOIN HOU We 4a 3 NO. INTERRUDT 
FE GG GCI CCC IGE III I IGE RAR ak aki ak ack 00002E +NOIN EQ 
103) ECR CC EEOC O ETO EO HCE OCG: CHOU OBOE OSG: Ca COO EE OE COE OEE OE OEE 00002F Aer oe EQU 47 15 1 INTERRUPT CC ERROR 
1039 ** 
1080 + qeecacE @ERie + 1156+ COMMON BUFFER FOR PRINTING DATA 
SC III I Sk IC I Ri ki akc ak ok akc ak OO2BEA 0000 1159+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
O43 ieee oe ea ee gp ep Addn a ve Q0O2BEC 0000 1160+$IOIN DC A (*-* I7O AND INTR CONDITION CODES 
uC OO2BEE 0000 1161+$ISB DC A(*-* R7, INTR STATUS BYTE & DEV ADRS 
Oe ouE ug Re” Senne 002BFO 0000 1162+LSTIO DG AC #-# ADRS OF LAST 1/0 + 4 BYTES 
oosane «Baas ae D A(OG34) 002BF2 0000 1163+DEV1 DC Rf #-# DEVICE DEPENDENT DATA 
O0294E D5D640C9E240C9D5E 1047 DC  CLOO34'NO IS INVALID CONTINUE ON YES LEG.! GAekEe anne fies cooyee che ee if 
eee igo OO ee pena 002BF8 0000 1166+DEVG DC aA(*-# CS STATUS ERROR ISB & INTR CC 
92342 9932 1989 Be A(G034) eS iearpegae Boy BEV SA a PrEe FOR EQea THES GsBE™ 
+ 
002974 C5SE7C3C8C1D5C7C54 1051 Nees DC CLOO34" EXCHANGE THE 4963 ATTACHMENT CARD. ' boscce 0000 11694DCB1 EW A (k-* LAST DCB TABLE, CONTROL WORD 
DD ooSe i924 * Be. = AL2 (0005 002BFC 0000 1170+DCB2 DC A(*-* LAST DCB TABLE, DEV DEP WORD 
poo ee. ‘ode 1023 peC GOGO) O02BFE 0000 1171+DCB3 DG =A LAST DCB TABLE, DEV DEP WORD 
002998 0014 Le C1 OOO CHONG DETTOR A ODeHees 002c00 0000 1172+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
903g AE Oz  spauocucse | 1888 Be (9982) 333593 098 ifaspess Be Rect ASE Bee there: Ceerh a ogo” 
4+DCB6 DC A(*- 
902280 CICECSCID240CHCSE ae be Pattee CHECK DEVICE ADDRESS AGAINST CONFIGURATOR. ! He eny Bb0G pat RcEs ue Thee LAST DCB TABLE, BYTE COUNT 
9029DC C9C64OE6DIDEDSCT7 1059 DC 10038) TF WRONG: RUN AGAINST CORRECT ADDRESS.' 002€08 0000 V176+DCBB DC AF LAST DCB TARLE, BUPFER ADDRESS 
A , 1178+CSBUF EQU * CYCLE STEAL DATA BUFFER 
902404 C aC G40C 3DED9D9C5C 1961 DC (0030) CORPECT ADDRESS: '! noo con 6000 eet aes s STATUS WD 0, RESIDUAL ADDRESS 
7 1180+#CSTL2 DC A (*-* C S 
QOO2A1A CSE7C3C8C1D5C7C54 1063 ae DC CLOO30"EXCHANGE I/O ATTACHMENT CARD. ' auhetae tds req CoeL a pe oh ee! CS STATUS WD 2° RETRY CNT WD 1 
905838 oes D AL2 (0001 002C10 0000 1182+CSTLY DC = AK CS STATUS WD 3, RETRY CNT WD 2 
SODA3A  O0NC 10ee De «A (0028) Aaoeda. cnene Able caane ne A hea CS STATUS WD Sf ERROR STATUS HD > 
002A3C C2EGE2E840E2E3C1E 1067 DC CLOO28"BUSY STATUS - O.K. ON RETRY ' Boscre aaa0 Wleecceuce De : co. = era WD 6. LAST DCB ADDRESS 
NORE ‘cease hee 2 (0001 002618 0000 1186+#CSTL8 DC =A (#-¥ CS STATUS WD 7, PREVIOUS HD/CYL 
0383 0028 1976 Be A(Gd4O) S33E18 9908 iggresnig BE A AETS cS SEAIUS BD g+ SPREE HBCCTE 
#CST10 DC = A #- 
002A5C C3D6D4D4CID5C44OD 1071 DC CLOO46"COMMAND REJECT - EXCHANGE I/O ATTACHMENT CARD ' Hee Ann tisolecn4 He Ag CS STATUS WD 16, HEAD/CYLINDER 
OOSRBA 1079 Be” at.2 (0002 002¢20 0000 1190+CST12 DC = AN * CS STATUS WD 11, DIAG BYTES 1, 
BOSE: “BOOK 1033 DC A (0036) ) 002C22 0000 1191sCST13 DC AC +-# CS STATUS WD 12) AND 3 + WRAP’ BYTE 
7 1192+ 
QO2ZA8E CODSESCSDICECIC3C 1075 DC —-« CLOO364 INTERFACE DATA CHECK - EXCHANGE I/0 ' Sane: sane Weegee tas. dane Gali en aromas an aut er yee 
poseee aoe Bakes 107s BEL. “ChOOTe AGHA CHRGHE ane 4 002¢26 00000000 1194+$DATA DC 2h ts} OPTIONAL DATA 
DOOR. ee eee Soe eneuer “aon: of 002C2A 0021 11954S$INTL DC ~X*0027" INTERRUPT LEVEL REQUESTED 
OO5RCH 1079 - De. © -AL2(0005 002¢2c 0000 11964+TURTN DC =A (¥-*) TEST UNIT RETURN ADRS TO MDI 
g924ce O0tt 1980 Be A (9920) 333C38 8hg H3grSPCEe Be 88 apn peYe Er 'Bevice appRess 
+ 
O02AC8 Pep Dee meres He ie K (9042) none DEVICE ADDRESS' aggeae 6056 11998 ie A ee) ) Thre CYLINDER RUDROSE 
+* 
QO2ADE C3CBCSC3D240CHCSE 1083 DC itet ees DEVICE ADDRESS AGAINST CONFIGURATOR.' 130133 THIS TEST UNIT WILL RETURN TO MDT WITHOUT DOTNG ANY pRoGmaN 
+ FUNCTION. THE R 
002B08 C9C64OE6DID6DSC77 1085 DC ites WRONG: RUN AGAINST CORRECT ADDRESS.' 1203¢8 FUNCTION. ANE RESULTS THAT NEEE SEL De AN THE RESULI 
: 12044* 
Oeeke Obie ea ae ve; ROSEN Oe ee 002C34 4020 2BEA 7A02 12054T7A02 MVWI X'7A02', STUID SET UP TEST UNIT ID 
ao ccne. secus hey . (ACanene CARS 5 002¢3A 5700 1206+ BXS (RT RETURN TO MDI SUPVR 
002B48 C5E7TC3C8C1D5C7C54 1089 DC CLOO30"EXCHANGE I/O ATTACHMEN : 1206 ENS i ahukae 
002B66 1090 FO0257 EQU * 1209 PEGE AR Wea EKGs GEES CAEESATS UCR SE HKG 4s en ee 
sees 300 ig 7 BP hg sggon Hee : 
i] * 
002B6A CUC5ESCIC3C540C9E 1093 DC CLOO20'DEVICE IS NOT READY * i512 + EQUATED NAMES FOR SUPPORTED SVC'S * 
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005BB2 cect CLO043+ FAILURE IS WITH CABLES OR COMMON ADAPTER. * 000001 1215 OUTIN EQU J OUTIN svc 
Bebe Te 001k a Ue be K (0026) er : 000002 1216 IDLE EOQU 2 IDLE SVC 
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OO2BCA D3D6CICHYOC 1DSCH4 1101 a sD C10026"LOAD AND EXECUTE MAP 7A10 * 909005 1520 Beags Egy Exit SvG. nn cee 
000007 1221 TERM EQU 7 TERMINATE SVC 
002BE4 0000 1104¥+oPTN1 DC — x" 0000" PROGRAM OPTION CONTROL WORD 1 000007 1221 TERM EQU 7 | TERMINATE SVC 
002BE6 0000 1106+OPTN2 DC X¥'0000! PROGRAM OPTION CONTROL WORD 2 000009 1223 RID EQU) 9 READ ID SVC 
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= CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE 06 I7A01 --- CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE O6A 
OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1224 START EQU 10 START CYCLE STEAL SVC OO2C6A 2D0A 1343 DC A (WRSID) ADDR OF SECTOR ID DATA 
1225 STCSS EQU 11 START CYCLE STEAL STATUS SVC 1344 * 
1226 PREP EOU 12 PREPARE YDEVICE SVC 1345 ***** READ SECTOR ID DCB ******* 
1227 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 1346 * 
1228 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 002C6C 201C 1347 RSDCE DC Ke 20 ics READ SECTOR ID CNTL WORD 
1229 RSTAT EOQU 15 READ STATUS SVC 002C6E 0000 1348 DC iis FLAG / PHYSICAL SECTOR# 
1230 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 002C70 0000 1349 DC 000 HEAD / CYLINDER#'*S 
1231 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 002C72 0000 1350 DC 100008 NOT USED 
1232 CTRL EQU 18 CONTROL SVC 002C74 2D16 1351 DC ; RSBA) RSB ADDRESS 
1233 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 002C76 0000 1352 DC A (*-* CHAIN ADDRESS 
1234 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 002C78 0004 1353 DC Xx*ooo4! BYTE COUNT FOR READ SECTOR ID 
1235 HIO EQU 21 HALT ALL Sa OO2C7A 2BF2 1354 DC A (SCTID) SECTOR ID DATA ADDRESS 
1236 REOSD EOQU 22 REQUEST USE OF DCP DISK SVC 1355 * 
1237 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 1356 ***** SEEK DCB **#*****x 
1238 HALT EQU 24 HALT SVC 1357 * 
1239 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 002C7C 0000 1358 SKDCB Dc X*OQ00008 SEEK DCB CONTROL WORD 
1240 HTOE Bou 26 HEX TO EBCDIC SVC (STRING 002C7E 0000 1359 DC Xx'O0000! NOT USED 
1241 ATOH EQU 27 ASCII TO HEX SVC TRING 002C80 0000 1360 DC A (*-* HEAD / CYLINDER#'S 
1242 HTOA EQU 28 .HEX TO ASCII SVC (STRING 002C82 0000 1361 DC X¥*0000!8 NOT USED 
1243 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 002C84 2Dp16 1362 DC A (RSBA) RSB ADDRESS 
1244 ATOE set 30 ASCII TO EBCDIC SVC STRING 002C86 0000 1363 DC A 0000 CHAIN ADDRESS 
1245 READI EQU 31 READ DATA SETS FOR MDI/UTIL 002cC88 0000 1364 DC x*O0O00! NOT USED 
1246 WRITI EQU 32 RITE DATA SETS FOR UTIL 002C8A 0000 1365 DC xX*0000! NOT USED 
T2408 6 KKK OK IOI II RIO RII IIR I i Ika ak ok ok 1366 * 
1249 * * 1367 ***** CYCLE STEAL STATUS DCB *******x*x 
1250 * EQUATES USED BY TU'S AS CONSTANTS * 1368 * 
1251 * * 002C8C 2000 1369 CSDCB DC x'2000° CONTROL WORD 
1252 ORO OI ROR KOR IRR III RO ROR IORI IO RK OR IK tok fk kk ak ak ok O002C8E 0000 1370 DC ge NOT USED 
1253 PLUS EQU C'+t PLUS CHAR 002C90 0000 1371 DC Fro? NOT USED 
1254 MINUS EQU Cct—t MINUS CHAR 002C92 0000 1372 DC Fro? NOT USED 
1256 ZERO EQU 0 002C94 0000 1373 DC Fro? NOT USED 
1257 ONE EQU 1 002C96 0000 1374 DC F'Q! NOT USED 
1258 TWO EQU 2 002C98 OOTA 1375 DC X'OO1A! 13 WORDS OF STATUS 
1259 THREE EQU 3 OO2C9A 2COA 1376 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
1260 FOUR EQU 4 1377 * 
1261 FIVE EQU 5 1378 ***** WRITE DCB ***k**kKK* 
1262 SIX EQU 6 1379 * 
1263 SEVEN EQU 7 002C9C 0028 1380 WRDCB DC Xx'0028! WRITE DATA DCB CNTL WORD 
1264 EIGHT EQU 8 O0O02C9E 0000 1381 DC A (*-* FLAG / RECORD# 
1265 NINE EQU 9 002CA0 0000 1382 DC A (*-* HEAD / CYLIDNER#!S 
1266 TEN EQU 10 OO2CA2 0000 1383 DC A (*-* SCAN / REPEAT COUNT 
1267 ELEVN EQU 11 11 OO2CA4 2D16 1384 DC A (RSBA) RSB ADDRESS 
1268 TWELV EQU 12 12 O0OO2CA6 0000 1385 DC A (*¥-* CHAIN ADDRESS 
1269 THRTN EQU 13 13 O0O02CA8 0100 1386 DC x*0100° BYTE COUNT 
1270 FIVIN EQU 15 15 OO2CAA 0000 1387 DC A (*-*) WRITE DATA ADDRESS 
1271 SIXTN EQU 16 16 1388 * 
1272 THRY2 EQU 32 32 1389 ***** VERIFY DCB AE eK 
1273 SIXT4 EQU 64 64 1390 * 
1Z74 ONE28 EQU 128 128 OO2CAC 0019 1391 VRDCB DC | x*90019! CONTROL WORD 
1275 TWO56 EQU 256 256 QOO2ZCAE 0000 1392 DC A (*-* FLAG / RECORD# 
1276 ONEK EOU 1024 1024 002CBO 0000 1393 DC A (*-* HEAD / CYLINDER#!'S 
1277 TWOK EQU 2048 2048 002CB2 0000 1394 DC A (*-* SCAN / REPEAT COUNT 
1278 THREK EQU 3072 3072 OO2CB4 2D16 1395 DC A (RSBA) RSB ADDRESS 
1279 FOURK EQU 4096 4096 002CB6 0000 1396 DC A (*-* CHAIN ADDRESS 
1281 M1 EQU -1 -1 QO02CB8 0000 1397 DC A (*-* BYTE COUNT 
1282 M2 EQU -2 -2 OO2CBA 0000 1398 DC Fror NOT USED 
1283 M3 EQU -3 -3 1399 * 
1284 M4 EQU -4 -4 1400 ***** READ DCB KKK KKK 
1286 2626 OOK IO OI IOI IO I IR OR OI Ifo a kak kak ik 2k akg doko 1401 * 
1287 * * OO2ZCBC 2018 1402 RDDCB DC X¥*'*20188 READ DCB CONTROL WORD 
1288 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * O0OO2CBE 0000 1403 DC A (*-* FLAG / RECORD# 
1289 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 002cc0 0000 1404 DC A (*-* HEAD / CYLINDER#'S 
1290 * * 002CC2 0000 1405 DC A (*-* SCAN REPEAT COUNT 
129 1 0 RR RIO IR III II II IO ISIC IO OK IR II I GK kak ak 002CC4 2D16 1406 DC A (RSBA) RSB ADDRESS 
1292 BSO EOU 0 002CC6 0000 1407 DC A (*-* CHAIN ADDRESS 
1293 BS1 EOQU 1 002CC8 0100 1408 DC x*0100! BYTE COUNT 
1294 BS2 EQU 2 OO2CCA 0000 1499 DC A (*¥-*) READ DATA ADDRESS 
1295 BS3 EQU 3 1410 * 
1296 BS4 EQU 4 1411 ****x WRITE SECTOR ID SKEWED 2 EK 
1297 BS5 EQU 5 1412 * 
1298 BS6 EQU 6 Q002CCC 002F 1413 WKDCB DC X'OO2F* CONTROL WORD 
1299 BS7 EQU 7 OO0O2CCE 0000 1414 DC A (*-* FLAG / PHYSICAL SECTOR# 
1300 Be EQU 8 0O02CDO 0000 1415 DC 2 ot * HEAD / CYLINDER#'*S 
1301 BS EQU 9 002CD2 0000 1416 DC NOT USED 
1302 BS10 EQU 10 OO2CD4 2D16 1417 DC i ESph) RSB ADDRESS 
1303 BS11 EQU 11 002CD6 0000 1418 DC CHAIN ADDRESS 
1304 BS12 EQU 12 002CD8 0004 1419 DC ‘000 BYTE COUNT 
1305 BS13 EQU 13 OO2CDA 2D0A 1420 DC A (WRSID) ADDR OF SECTOR ID DATA 
1306 BS14& EQU 14 1421 * 
1307 BS15 zu 15 1422 **** READ SECTOR ID SKEWED * KKK 
1309 COPY TVAOODCB 260CT77 1423 * 
1310 ** (T7AOODCB) 002CDC 201D 1424 RKDCB DC x1 20D" CONTROL WORD 
1311 * OO2CDE 0000 1425 DC i FLAG / PHYSICAL SECTOR # 
1312 oR IO RGR III IOC Ra ICI II a aI ICR AC 2 8/7 79 AK Be dk 002CFO0 0000 1426 pc a HEAD be CYLINDER#'*S 
1313 * O0O02CE2 0000 1427 DC NOT USED 
1314 * DCB TABLES AND DC'S OO2CE4 2D16 1428 DC b (BSBA) RSB ADDRESS 
1315 * 002CE6 0000 1429 DC CHAIN ADDRESS 
1316 76 IO I RII IORI ORO III II I III SIS IOI a kok ak kc ak OO02CE8 OO004 1430 pc anes BYTE COUNT 
1317 * OO2CEA 2BF2 1431 DC A (SCTID) SECTOR ID DATA ADDRESS 
1318 ***** DTAGNOSTIC DCB tC ak ok kk 1432 * 
1319 * 1433 **** READ MULTIPLE SECTOR IDS ** KK 
2008 1320 DGDCB DC "2008" DIAGNOSTIC DCB 1434 * 
0000 1321 DC i FLAG / PHYSICAL SRceOne QO02CEC 201C 1435 RMDCB DC X*201C! CONTROL WORD 
0000 1322 DC HEAD tee Fee ER#* OO2CEE 0000 1436 DC H *— FLAG / PHYSICAL SECTOR# 
0000 1323 Dc £000 NOT 0O02CFO 0000 1437 DC h (*-* D / CYLINDER#'S 
2D16 1324 DC A (RSER) RSB ABDRESS O002CF2 0000 1438 DC Fo! NOT USED 
0000 1325 DC A (*-* CHAINING ADDRESS OO2CF4 2D16 1439 DC A (RSBA) RSB ADDRESS 
0100 1326 DC X*010 BYTE COUNT OO2CF6 0000 1440 DC A Bock CHAIN ADDRESS 
0000 1327 pc A (#24). DATA ADDRESS OO02CF8 0084 1441 DC X'OO84e BYTE COUNT 
1328 * OO2CFA 2D26 1442 DC A (IDOO0) DATA AREA ADDRESS 
1329 ***** RECALIBRATE DCB ****** xx 1443 * 
1330 * 1444 * CONSTANTS AND DEFINED STORAGE LOCATIONS 
0001 1331 CLDCB DC X*O001! RECALIBRATE DCB 0O02CFC 0000 1445 ZEROO DC x*o0000°8 CONSTANT ZERO 
00000000000000000 1332 DC TA (*-*) QOO2CFE 0001 1446 ONE1 DC x¥*0001! CONSTANT ONE 
1333 * 002D00 0000 1447 KAY DC eteneb WRITE PARAMETER POINTER 
1334 ***x* YFRITE SECTOR ID *** eK KX 002D02 EB6D 1448 WDATA DC X'EBO6D! WRITE DATA 
1335 * 002D04 6BDB 1449 DC X"6BDB¢ * 
002D 1336 WSDCB DC x! O02p" WRITE SECTOR ID CNTL WORD 002D06 0000 1450 LGSEC DC Xx*00008 LOGICAL SECTOR # 
0000 1337 Dc A FLAG / PHYSICAL SECTOR# 002D08 0000 1451 PHYSC DC X*OQOO0008 CONVERTED PHYSICAL SEC # 
0000 1338 DC A HEAD / CYLINDER#'S OO2D0A 0000 1452 WRSID DC X*O0000! FLAG,SECTOR (WRT SECTOR ID DATA) 
0000 1339 DC xt 000 ' NOT USED 002D0C 0000 1453 DC Xx'OOO008 HEAD,CYLINDER 
2D 16 1340 DC A roe)! RSB ADDRESS OO2D0E FF34 1454 WSIDT DC X'FF34° WRITE SECTOR ID TEST DATA 
0000 1341 DC A CHAIN ADDRESS 002D10 5678 1455 DC X'5678! * 
0004 1342 DC xe 000 BYTE COUNT 002D12 0000 1456 SCTST DC xX*o0000! READ SECTOR ID TEST DATA BUFFER 
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= CHANNEL/4Y963 DISK UNIT P/N=6826978 EC=375222 PAGE O7 I7A01 --- CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE OTA 
OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0000 1457 Dc x'oooo! 002DB8 2BAC 1572 FFN R3, (R5 INIT READ SECTOR ID BUFFER 
00000000000000000 1458 RSBA_ DC On (se RESIDUAL STATUS BLOCK OO2DBA 4020 2CEA 2BF2 1573 MVA BehtD, RKDCB+14 DATA ADDR 
0000 1459 CTRO2 DC X*0000 COUNTER 002DCO 5045 1574 J XIO 
0000 1460 CTRO3 DC X'0000! COUNTER 1575 * 
0000 1461 IDOO pc x¥'o0008 ID ADDRESS TO BE SET BY USER 002DC2 4020 2F5E 2CCC 1576 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1010 1462 PDATA DC X*10108 WRITE DIAG WORD 1 DATA PATTERNS 002DC8 4020 2CDA 2D0A 1577 MVA WRSID, WKDCB+14 DATA ADDR 
5555 1463 pc X¥'55558 * OO2DCE 503E 1578 J XIO 
AAAA 1464 DC X'AAAA® * 1579 * 
FFFF 1465 pc X'PFFF* * 002DD0 4020 2F5E 2C5C 1580 S$WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1466 * 002DD6 4020 2C6A 2D0A 1581 MVA WRSID, WSDCB+ 14 DATA ADDR 
1667 ROC OO IO aR giaiok aga 4 70 6/7 AR I I RO IOI I doko ok 002DDC 5037 1582 J XIO 
“68 * 1583 * 
1469 * SUBROUTINE OO2DDE 4020 2F5E 2C3C 1584 $DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1470 * O0O2DE4 5033 1585 J x10’ 
1471 * PURPOSE 1586 * 
1472 * OO2DE6 6E0D 2BF0 1587 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
1473 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA OO2DEA OBFF 1588 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 
1474 * O0O2DEC 4524 2C0A 1589 MVA CSBUF,RS5 * TO ALL ONES * 
1475 * CALLING SEQUENCE OO2DFO OF16 1590 MVBI 22,R7 * 
1476 * OO2DF2 2BAC 1591 FFN R3 (R5), * 
1477 * BAL CMPRW,R6 (NORMAL) OO2DF4 G524 2BFA 1592 MVA pcb F,R5 CLEAR DCB BUFFER TO ALL ONES 
1078 * OO02DF8 OF10 1593 MVBI 16,R7 * 
1479 * RETURN OO2DFA 2BAC 1594 FFN R3 {B) * 
1480 * OO2DFC 4020 2BEC 0708 1595 MVWI x'6 08',SI0IN OVERLAY OLD CONDITION CODES 
1481 * BXS (R6,2) - NORMAL 002E02 CB25 2BEE 1596 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1482 * OO02E06 4CA3 1597 TBTR RG, IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1483 * O0O02E08 4CA1 1598 TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
(POM TELITCTOSSOCCCCSSSCOCTCOCCCLSTOSSCCCCSOCT©SCCSSSS£ SS SS PSS SSL SCS SL St ee Se 2S OO2EOA 4C62 1599 TBTS R4,XI SET EXPECTED INTR CONTROL BIT 
1485 * OO2EOC 4724 1600 MVA oBLK, 7 SET UP CONTROL BLK FOR SUPR 
4“724u OOOY 1486 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 002E10 C020 1601 MVB ITOMOD+1,R0 GET IDCB FUNC/MNODIFIER 
4324 2BF2 1487 MVA SéTID, R3 ADDR OF RD SEC ID DATA OO2E14 402D OOFO 1602 RBTWI X'OOFO!t,IOMOD REMOVE FUNCTION FROM '‘IOMOD! 
4524 2D0A 1488 MVA WRSID,R5 ADDR OF WR SEC ID DATA OO2ZE1A 3022 1603 SRL 4, RO RIGHT JUSTIFY FUNCTION BITS IN RO 
2BA6 1489 CFNEN (R3), (R5) COMPARE ID DATA Q0O02E1C F005 1604 CBI 5,R0 IDCB FUNCTION = 5? 
68C0 0002 1490 by BCH IF WRITE ID DATA OK OO2ZETE 1003 1605 JE SWRT1 YES - ISSUE 'SVC WRIT1° 
68D2 0000 1491 B R6{ * COMPARE ERROR 002E20 6010 1606 SVC WRITO ISSUE WRITE DPC '4Xxt OP 
CRE SEL SCOCS#C§OCCCCSCSC OC SCL CCC SOCSCSC£CS SPSS SSOSE SOSSSOCS SC CS LSS 2S te ts 2 2 SS OO2E22 6802 2EA6 1607 B XIO8~-4 GO WAIT FOR THE INTERRUPT 
1494 * OO02E26 6011 1608 $WRT1T SVC WRIT1 ISSUE WRITE DPC '5X* OP 
1495 * EXECUTE INPUT & OUTPUT COMMANDS O002E28 6802 2EA6 1609 B XIO8-4 GO WAIT FOR THE INTERRUPT 
1496 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1610 * 
1497 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER OO2Z2E2C 4020 2F5E 2C9C 1611 SDGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 
1498 : LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE O002E32 6802 2E52 ron _ B XIODG ISSUE START CS DIAG CMD 
1500 * . 002E36 4020 2F5E 2CBC 1614 SDGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 
1501 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 002E3C 6F08 2CC8 1615 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 
1502 * . OO2E40 6D08 2CCA 1616 MVW RDDCB+14,R5 ADDR OF READ BUFFER 
1503 * 1. LOST INTERPUPTS BY TIMING OUT A COUNTING LOOP OO2E44 OBFF 1617 MVBI X'FF!,R3 CLEAR TO FfS 
1504 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR OO2ZE46 2BAC 1618 FFN 3, (R5) * 
1505 * 002E48 6802 2E52 1619 B XIODG ISSUE START CS DIAG CMD 
1506 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1621 COPY TV7AXEQ O9MAR78 
1507 * E 1622 PRINT OFF 
1508 * 1 BAL SRKEW,RO READ SECTOR ID SKEWED 2186 T AXEQ 
1509 * - 2187 + RO IO lo oa a takki 29 JUL 7 6* * 
1510 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 2188+* 
1511 * . 2189+* SUB-~ROUTINE 
1512 * 3 BAL $WSEC, R6 WRITE SECTOR ID 2190+* 
1513 * 2191+* EXECUTE INPUT AND OUTPUT COMMANDS 
1514 * 4 BAL $SDIAG, R6 DIAGNOSTIC 2192+* 
1515 * sa 2193+* PURPOSE 
1516 * 5 BAL XIOCS, R6 CYCLE STEAL STATUS 2194+ 
1517 * ~ 2195+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
eae : 6 BAL SSEEK,R6 SEEK Saotts THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
1520 * 7 BAL SRECL,R6 RECALIBRATE 2198+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1521 * 7 2199+%* THE I/O COMMAND. 
1522 * 8 BAL $RDID, R6 READ SECTOR ID 2200+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
1523 * : 2201+* ISSUED BY THIS SUBROUTINE. 
1524 * 9 BAL  $RD,R6 READ 2202+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
1525 * 4 2203+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
1526 * 10 BAL $RDVY,R6 READ VERIFY 2204+% 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
1527 * 2 2205+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
1528 * 11 BAL $WRT,R6 WRITE 2206+* MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 
1529 * 2207+4+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN R7, SET THE 
1530 * 12. BAL SRDIM, R6 READ MULTI SECTOR IDS 2208+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC START?. 
1531 * 2209+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
1532 GCC GOOG I oR oi a tak i icici iiok dak ki gk koi ak ak ake ak ake ak ok ak 2210+* STARTS TO DETERMINE A LOST INTERRUPT. 
1533 * 2211+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
4020 2F5E 2C7C 1534 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2212+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
507F 1535 J XIO 2213+* 8. CHECK IF THERE WAS A WRONG INTERROPT LEVEL. 
1536 * 2214+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
4020 2F5E 2C4C 1537 SRECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 2215+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
507B 1538 J XIO 2216+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
1539 * 2217+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
4020 2F5E 2C6C 1540 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 2218+% ISSUED BY THIS SUBROUTINE. 
OBBB 1541 MVBI X'BB!,R3 SET BUFFER TO B'S 2219+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 
4524 2BF2 1542 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 2220+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
4724 QO004 1543 MVWI R7 SETUP BUFFER LENGTH 2221+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
2BAC 1544 FFN R3, (RS) INIT READ SECTOR ID BUFFER 2222+* 
4020 2C7A 2BF2 1545 MVA SCTID, RSDCB+14 DATA ADDR 2223+* CALLING SEQUENCE 
506E 1546 J XIO 2224+% 
1547 * 2225+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
i934 60B4 ~~ 1agq ROTM AvWr aacRT SET BUFFER LPNGTH 5559¢% --> BAL  XTO 0 
: oS R XEQ ANY CYCLE STEAL COMMAND, MOD=0 
4524 2D26 1550 MVA 1D06,R5 SET BUFFER ADDRESS 2228+* --> BAL XIO1 405 PARM PRELOADED IN 'TOMOD? 
OBBB 1551 MVBI xX'BB!,R3 SET CLEAR CHARACTERS 2229+* ~~> BAL XIOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
2BAC 1552 FFN R3, (R5) CLEAR THE BUFFER 2230+* --> BAL  XIOCS-4,R6 AUTO CS STATUS {FOLLOWING OTHER XIO 
5064 ee : J XI Bona AND DOES NOT POST INTERRUPT STATUS) 
OBFF 1555 $RD MVBI X'FF*,R3 SETRD BUFFER TO ALL FS 2233+* RETURN CONTROL 
6D08 2CCA 1556 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 2234+ 
6F08 2CC8 1557 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 2235+* BXS R6, 2) RETURN TO USER NO ERROR 
2BAC 1558 FFN R3 i>} CLEAR READ BUFFER 2236+* OR B 6{ * RETURN AND RETRY ON ERROR 
4020 2F5E 2CBC 1559 SRDS MVA RD B, LODCB SET UP BLOCK FOR SVC CALL 2 2.37 FR IIIS ROO IC OR IO IG I RIK FR IOI RII III a ak ak ak ie fake afc a akc ake ak ak afc 
505A 1560 J XIO QO2ZE4C CB25 2F60 2239+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
1561 * 002E50 SOOE 2240+ J XIO1 CS I/O'S ARE NOT RETRIED 
gee 2F5E 2CAC Bee SRDVY a Nl ele SET UP CONTROL BLOCK FOR SVC CALL 002E52 4020 2F60 000D ae ven MVWI xX'OOOD!,I1 
+ , LOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
1564 * 002E58 500A 2243+ J XIO1 GO TO CS OPS 
Aac5 2F5E 2C9C tece S$WRT ee Se Seca SET UP CONTROL BLOCK FOR SVC CALL OO2ESA CAA Aria TBTR F 
+ r R4,CE RESET CS STATUS INTER ERROR INDICAT. 
1567 * OO2ZE5C 4C68 2246+ TBTS i 4,C } SET "CYCLE STEAL STATUS! IN PROGRESS 
4020 2F5E 2CDC 1568 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL OO2ZE5E 4020 2F5E 2C8C 2247+XIOCS MVA SDB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
OBBB 1569 MVBI X*'BB',R3 SET BUFFER TO B'S OO2E64 4020 2F60 OOOF 2248+ MVWI X'000F", TOMOD SET CYCLE STEAL MODIFIER 
4524 2BF2 1570 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO2ZE6A 4C28 2249+ TBT Ay CS) IS CS IN PROGRESS, ERROR CONDITION 
4724 OO004 1571 MVWI 4,R7 SETUP BUFFER LENGTH OO2E6C 1213 2250+ JON 102 * YES, BYPASS SAVING I/O ADRS 
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OO2F6E 6EOD 2BFO 2251+XI01 MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED OO2ZEEA 4C61 2367+INTET TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
002E72 4324 2BFA 2252+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DEB TABLE OO2ZEEC 5004 2368+ J farki . IL 
002E76 6D08 2F5E 2253+ MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 2369+* THE ERROR INTERRUPT USES THE SAME IL 
OO2E7A OF1A 2254+ MVBI 6,R * THE NUMBER OF MOVES 2370+% ENDING SEQUENCE AS THE NORMAL INTR IL 
OO2ZE7C 2D64 2255+ MVFN SRD) ES) MOVE 1 STATUS WORD AND ADJUST 23724 OG ORR RRR dokok dotock tk tk 1 QA PRT6IL 
OO2ZE7E OBFF 2256+ MVBI 255,8 CLEAR CYCLE STATUS BUFFER 2373+* IL 
002F80 4524 2257+ HVA CSBUF,RS5 * TO ALL ONES * 2374+* SOUBROUTINE IL 
OO2E84 OFTIA 2258+ MVBI rR7 * 2375+% IL 
002E86 2BAC 2259+ FFN  R3 4R5) * 2376+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
002E88 4020 2260+ MVWI x*6708",$IOIN OVERLAY OLD CONDITION CODES 2377+* siee 
OO2E8E CB25 2261+. MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE geet PURPOSE TL 
002E92 4CA1 2263+ TBTR (R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 2380+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
0OO02E94 4CA3 2264+XIO2 TBTR R4,1N CLEAR INTERRUPT RECEIVED CNTL BIT 2381+* IL 
0O02E96 4724 2265+ MVA oBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 2382+* CALLING SEQUENCE IL 
OO2E9A 4CA6 2266+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 2383+* IL 
OO2E9C 4C62 2267+ TBTS R4,XI) SET EXPECTED INTR CONTROL BIT 2384+* SUPERVISOR WILL ENTER HERE IF INTER CC IS AS REQUESTED IL 
OO2E9E 600A 2268+ SVC TART CALL SUPVR FOR I/O COMMAND 2385+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
2269+* 2386+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
OO2EAO0 4CAT 2270+ TBTIR R4,NI) IS AN INTR EXPECTED 2387+* COMMON SECTION IS HANDLED HERE. IL 
OO2EA2 6ACO 0002 2271+ BN R6, 2) * NO, RETURN TO USER 2388+* IL 
2272+* 2389+* RETURN CONTROL IL 
2273+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 2390+* IL 
22744+% 239 1+%* SVC EXIT RETURN TO USER VIA SUPVR IL 
OO2EA6 4524 0000 2275+ MVWI 0O,R5 SET UP WORK REG FOR "LOST INTR! 2392+* IL 
OO2EAA 4CA3 2276+X1I08 TBTR (ha IN) HAS INTERRUPT BEEN RECEIVED 2393 +E RK KH HH KH I KK EK dK kK dk lok kita kik kk tok kok dak kk doko tok tek kkk ok KKK TT 
OO2ZEAC 1239 2277+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY QO2ZEEE 706E 2394+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
OO2ZEAE 6002 2278+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO2ZEFO 336A 2395+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
2279+* SUPVR WILL RETURN HERE OO2EF2 4424 2BE4 2396+ MVA OPTN1, R4 SET UP BASE ADRS IL 
0O02EBO 6002 2280+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO2ZEF6 4C63 2397+INTR1 TBTS (R4,IK SET INTERRUPT RECEIVED IL 
2281+* SUPVR WILL RETURN HERE QO2ZEF8 4C28 2398+ TBT R4,CS IS 'CS IN PROGRESS* ON IL 
0O2EB2 7DA1 0001 2282+ AWL 1,R5 ADVANCE TIME OUT COUNT OO2ZEFA 1204 2399+ JON NTR2 * YES, BCH AROUND UPDATE IL 
OO2EB6 18F9 2283+ JNZ XIO8 BCH IF TIME OUT NOT REACHED OO2EFC C328 2BED 2400+ HVB R3,S10IN+1 SAVE INTERRUPTING CC CODE IL 
QO2EB8 4C61 2284+ TBTS R4, ER) SET ON ERROR CONTROL BIT OO2F00 6F0D 2BEE 2401+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 
OO2ZEBA 68D2 0000 2285+ B * RR 'NO INTERRUPT OO2F04 24HUO02+INTR2 EQU % IL 
2287 + EH I OK RI IO I IO I OR IR Ok tok i lokiok tok KO 3 FEB] 6** 2403+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
2288+% O02FO04 3521 2404+ SLL 4 ,R5 POSITION INTR LEVEL AND PUT TL 
2289+* SUBROUTINE 002F06 0501 2405+ ABI 1,R5 * IN 'I' BIT IL 
2290+* O02FO08 CD24 2C2A 2406+ CW $ENTL,RS IS THIS THE CORRECT INTR LEVEL IL 
2291+* I/O EXECUTE ERROR HANDLING ROUTINE O002FO0C 1002 2407+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
2292+* OO2FOE 4C66 2408+ TBTS (R4,$LE) SET IfffR LEVEL ERROR CONTROL BIT IL 
2293+* PURPOSE 002F10 4Cé61 2409+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
2294+% 002F12 4CA2 24104+INTR3 TBTR R4,X1 WAS INTERRUPT EXPECTED IL 
2295+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE OO2F1I4 1204 2411+ JON nTkxX * YES, EXIT OFF THIS INTR LEVEL IL 
2296+% PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 002F16 4C60 2412+ TBTS ie MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
229 7+* SUPERVISOR AND IT WAS NOT ACCEPTED. 002F18 F304 2413+ CBI R3 ATTENTION INTERRUPT? IL 
2298+% OO2F1A 1001 24144 JE INTRX YES TL 
2299+* CALLING SEQUENCE OO2F1C 4Cé6C 2415+ TBTS R4, NG) ERROR, UNEXPECTED INTERRUPT IL 
2300+%* 002F1E 6006 2416+INTRX SVC f EXIT fHIS LEVEL VIA SUPVR TO PGM IL 
eee SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 24 1 B+ RE Oo oa OR oR to gio mK i EK KK EC 3 FEB 6 *¥ 
302+%* 2419+ %* 
2303+* RETURN CONTROL 2420+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
2304+% 2421+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
2305+* B (R6) * RETURN TO USERS ERROR HANDLER giaate RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ + 
230 7+ 2 RCI COCCI i iii I IGG IGK acai a a akc atte ak 2424+% 
2308+* 002F20 4cCA4 2425+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
2309+* CC O= DEVICE NOT ATTACHED 002F22 6ACO 0002 2426+ BN RE» 2) * YES, EXIT THIS ROUTINE 
2310+* FOR 1= DEVICE BUSY 0O0O2F26 4CA8 2427+ TBTR R4,CS) WAS AbTO CS IN PROGRESS 
2311+* I/0 2= DEVICE BUSY AFTER RESET 002F28 1006 2428+ JOFF TOEV * NO, CONTINUE CHECKING 
2312+* 3= COMMAND REJECT OO2F2A 4C2A 2429+ TBT sRe CE) Is cS IN AN ERR CONDITION 
2313+* Y= INTERVENTION REQUIRED 0O02F2C 1002 2430+ JOFF Toco * NO 
2314+* 5= INTERFACE DATA CHECK OO2F2E 68D2 0000 2431+ B R6) * cs ERROR 
2315+* 6= CONTROLLER BUSY 002F32 4C69 2432+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
2316+* 7= I/O COMMAND EXCEPTED 0OO2F34 5601 2433+ BXS Bera), GO TO USER 
2317+* OO2F36 4C21 2434+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON 
QOO2EBE 706E 2318+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 002F38 100D 2435+ JOFF rocx * NO, EXIT THIS ROUTINE 
QOO2ECO 336A 2319+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 2436+* 
002EC2 C328 2BEC 2320+ MVB R3,$IOIN * PUT IN LOG OUT AREA 002F3A C520 2BED 2437+ MVB SIOIN4+1,R5 GET LAST INTR CC CODE 
002EC6 68D2 0000 2321+ B (RG) * RETURN TO USER ERROR HANDLER OO0O2F3E F502 2438+ CBI 2,R5 IS THIS CC=2 
2323 + ¥ RR IOI ICICI OR I aK a ak ok 7 A PRT 6 Q002F40 1003 2439+ JE xtoco YES 
2324+ TI, OO2F42 F506 2440+ CBI 6,R5 IS THIS CC=6 
2325+* SUB-ROUTINE IL OO2F44 68D1 0000 2441+ BNE (Re * * NO, BCH TO ERROR HANDLER 
2335:¢ — ennon ruvennu Hr G03Bue §R09 SEEK guage toe BYP Fiegte STivattiple GO'aud centr "°° 
+ IN PT RUNS ON INTERRUPT LEVEL '$INTL'* IL + = ’ 
2328+%* IL 002F50 68D2 0000 2444+ B fbx ERROR 
2329+* PURPOSE IL OO2F54 CB25 2BE8 2445+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
2330+* IL 002F58 5601 2446+ BXS (R6, 2§ RETURN TO USER VIA REG 6 
2331+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 244 7+* 
2332+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 24484+% I/O PARAMETER LIST 
2333+* EXPECTED CODE. TL 2449+4+% 
2334+* IL OO2F5A 19D0 2450+IOBLK DC A (DFVADD) ADRS OF DEVICE ADRS 
2335+* CALLING SEQUENCE IL 0OO2F5C 2EBE 2451+ DC A (XIOER) ERROR ROUTINE ADRS 
2336+* IL 0O02F5E 0000 2452+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
2337+* SUPVR WILL ENTER WHEN AN ERROP OCCURS ON AN I/O INTERRUPT IL 002F60 0000 2453+IOMOD DC A (*-* MODIFIER 
2338+* TL 002F62 0000 24544 DC A (*-* ADRS OF LAST SVC CALL 
2339+* RETURN CONTROL IL 002F64 0000 giioo+TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+ IL + 
ere SVC EXIT RETURN TO USER VIA SUPVR iL ey bey INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
23.0 32H SAE EASE GAIA ECG EE ICSE I ISO II IAEA ICEL O0O2F66 19D0 2459+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
23444+% IL 00O2F68 2EEE 2460+ DC A (INTOK INTERRUPT OK RETURN ADRS 
2345+* CC O= CONTROLLER END ISB O= ADD STATUS TT OO2F6A 2ECA 2461+ A (INTER INTERRUPT ERROR ADRS 
2346+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL OO02F6C 0003 2462+INTCC DC : INTERRUPT CODE EXPECTED 
2347+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL ZEON ARKH HHH HK I OK I ORR Ro ok kk eo EK 1 1 MAY 7 6 * * 
2348+* 2= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 2465+* 
2349+* 4= ATTENTION INTERRUPT 4“= STG DATA CK IL 2466+* SUBROUTINE 
2350+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 2467+* 
2351+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 2468+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
2352+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 2469+4* 
23534+* TL 2470+* PURPOSE 
OO2ZECA 706E 2354+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 24714+* 
OO2ZECC 336A 2355+ SRL 13,R3 POSITION INDICATOPS IN R3 IL 2472+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO2ZECE 4424 2BE4 2356+ MVA OPfN1, R4 SET UP BASE ADRS IL 2473+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
QOO2ZEN2 4C28 2357+ TBT {Ra c§) IS CS IN PROGRESS IL 2474+% TO INTERRUPT. 
OOSEDG UCHR 5335+ ore eaeee TURN +} sa76+* CALLING SEQUENCE 
+ TURN ON CYCLE STEAL INTER ERROR IL + 
OO2END8 6FOD 2BF8 2360+ MVW SF bev SAVE CS ERR ISB VALUE, BITS 0-7 IL 24774% 
OO2ZEDC C328 2BF9 2361+ MVB R3 ,DEV4+1 * AND THE COND CODE IL 2478+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO2EEO 500A 2362+ J INfTR1 IL 2479+% 
QO2EER2 4c24 2363+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND IL 2480+* --> BAL S$CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
OO2ZEE4 1002 2364+ JOFF NTET , BCH IF NOT EXPECTED TL 2481+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
QOO2EE6 F304 2365+ CBI 4,R3 IS THIS AN *ATTENTION' INTR IL 2482+* 
OO2EE8 1006 2366+ JE ThTR1 * YES, BCH TO END INTR SEQUENCE IL 2483+* RETURN CONTROL 
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24U8U+4+* 2599+* TEST UNIT 
2485+* BXS (Re 2) RETURN TO USER VIA REG 6 IF OKAY 2600+#* 
Sree OR B R6f * IF THE DEVICE COULD NOT BE CONNECTFD 2601+* DIRECT PROGRAM CONTROL TEST UNIT 
+ 
QU BB + KK KH HR OR I OR OR IO FORO OR OR ORI IO OK Se0ae% PURPOSE 
S93895 S896 zagon CO BBE 38d ones age BERK 30 Gee" Hie 
+ T DATA TO USE 605+* 
902872 45 2u oBF2 2u9 14 HVA Devi ,RS ; ALONG WITH THE ADRS TO USE Pe tee PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE 
+ 2607+* 1. ONE BYTE OF FUNCTION-MODIFI Ass ' " = 
Baae18 Gide PEE eS OP SHEME OER CONTROLS [OR MEE, ROUTINE ge0tt 2 THO SYERESOTOBMIAL TO, Ea VEE oF AMES EODERRERET OF THE OCB, 
e + E IE, X " TO SELECT LEVE ‘ 
002F80 6014 2495+ SVC CICB * CONNECT IT TO THIS DEVICE 2610+ é 2 FOR AN INTERRUPT 
O0O02F82 6AD0 0000 oreo e BN (R6) * ERROR RETURN TO USER aes CALLING SEQUENCE 
+ 
002F86 8828 2C2A 2F5E 24U98+$CONP MVW SINTL, IODCB PUT IN LEVEL & INTR PARAMETER 2613+* MDI=O0TUXX,T7A01,2,0708 = = ‘ 
OO2F8C 4724 2F5A 2499+ MVA ITOBLK,R7 SET RV TO CONTROL BLOCK TO PREPARE 2614+% : ood pea ere Seren hee 
0O02F90 4020 2BEC 0708 2500+ MVWI x'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 2615+* TURESUL BIT(S) 0 - 15........O010 CONDITION CODE 
002F96 CB25 2BEE 250 1+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 26 16+* é NGOS 2 sos ware --SECOND WORD OF IDCB 
OO2F9A 6EOD 2BFO0 2502+ MVW R6 L§TIO SET UP ADDRESS THAT STARTED LAST I/0 2617+* 
OO2F9E 600C 2503+ SVC PREP * AND CALL ON SUPVR 2618+* RETURN CONTROL 
OO2FAO 5601 2504+ BXS (R6, 2) RETURN TO USER 2619+* 
ZOO ERE CARES EES ESS ATA SIEHESERCERAS AY EESESSTRER CES CESELESES ESA GAATS OGRE 54% 2620+* B TURTN* RETURN TO MDI SUPERVISOR 
+* 2621+* 
2508+* SUBROUTINE 26 QD + RE EK KK KEKE RI ROR IR IOI IIR Ro IO a RoR a fitte foi oak ak ki a oka ake oe ak 
2509+* 003178 6FOD 2C2C 2623+T7A01 MVW R7,TURTN SAVE RETURN ADDRESS 
2510+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 00317C 4020 2BEA 7A01 2624+ MVWI X'7a018 S$TUID SAVE TU ID FOR DISPLAY 
2511+* 003182 4424 2BE4 2625+ MVA = OPTN1, B4 SET UP POINTER ADRS IN R4 
5213hs eae 003186 4724 2F66 Zesse* 
+ F MVA INTBL,R7 SET R7 TO CONTROL BL 
2514+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 00318A 6014 2628 SVC CICB * CONNECT IT TO THIS DEVICE 
2515+* SET THE "NO GOODt CONTROL BIT, THEN LOG THE DATA THAT HAS 00318C 4020 2BEC 0708 2629 MVWI X'0708',SIOIN INIT THE CONDITION CODES 
2516+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERPOR CONDITION. 003192 6908 189A 2630 MVW TUPARH1,R1 SET UP PARM ADRS 
2517+4+* 003196 8118 31DA 2631 MVB aa es T7AO1I * AND SET IN FUNCTION-MODIFIER 
2518+* CALLING SEQUENCE 00319A 8028 19D0 31DB 2632 MVB EV pb T7AO1L+1 * FOLLOWED BY THE DEVICE ADRS 
2519+4+* 0031A0 8118 31DC 2633 MVB R1) + #7A011I42 * AND LOAD IMMEDIATE DATA 
re THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: ee dia Pane pi Sean ee Be pP7AQ11+3 * 
MVD AOTI,R GET FUNCTION, MODIFIER AND DEV ADRS 
2522+* --> B SERR$ SET 'NG* BIT AND CONVERT DATA TO LOG 2636 * : : 
2523+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 0O031AC 680C 31DA 2637 IO T7AO1L ISSUE THE I/O COMMAND AND 
252U+* 0031B0 T7OAE 2638 CPLSR R5 * GET THE I/O CONDITION CODE IN R5 
2525+* RETURN CONTROL 0031B2 356A 2639 SRL 13,R5 RIGHT-JUSTIFY CC AND SAVE IT 
2526+* 0031B4 C528 2BEC 2640 MVB R5,S510IN * IN THE RESULTS FIELD 
2527+* B TURTN* RETURN TO MDI 0031B8 3042 2641 SRL 8 RO POSITION FUNC/MOD IN RIGHTMOST BYTE 
2528+* OR 8B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 0031BA FO6F 2642 CBI X'6Ft,RO WAS A DEVICE RESET DONE? 
2529+ 0031BC 1803 2643 JNE DLYD+4 NO - SKIP DELAY 
D5 30 eH RK HM HH eR RK RK KK ROK RK KKK ROK KK Ro kk tok ok ek tk K 0031BE ODFF 2644 MVBI -1,R5 SET UP DELAY COUNT 
OO2FA2 4020 1818 8000 2531+SERRS MVBWI X*8000!' , TUSTATUS SET ON *NO GOOD! STATUS BIT 0031CO 6002 2645 DLYD SVC IDLE DELAY 
gogrke Sin ot gee NE phgehe#) COHvEEE WOK $0" SBC VES See 33168 3Rbs geap SRE gage 
+ g POSITION FUNC IN RIGHTMOST B 
OO2FAE 4020 188E 4040 2534+ MVWI X*40O40!, TUWORK+116 0031C6 F002 2648 CBI xfo2 RO WAS A READ OR READ STATUS OP EXEC? 
0OO02FB4 4020 1890 4040 2535+ MVWI X'4O40O!, TUWORK?*118 0031C8 1D03 2649 JGT T7A01X O - SEND BACK ONLY OIO CC 
OO2FBA 4020 1892 4040 2536+ MVWI xX*4O40!', WORK+120 Q0O031CA 8828 31DC 18CA 2650 MVW T7A01I+2,TURESUL+2 LOAD DATA READ INTO RESULTS AREA 
OO2FCO OQODOK4 2537+S$PRNT HMVBI 4G,RS5 0031D0 8828 2BEC 18C8 2651 T7AO1X MYW SIOIN, TURESUL PUT ANY INTR COND CODE FOUND IW 
0O02FC2 4324 181A 2538+ HVA TOhWORK, R3 SET UP BUFFER STORAGE 2652 TXIT * RESULTS AND EXIT 
OO2FC6 6BOD 316A 2539+ MVW R3,BUFPT 0031D6 6802 3004 2653+ B $CONX RETURN TO MDI CONTROLLER 
QOO2FCA 4124 3046 2540+ MVA LINE1,R1 26 SU ERK RK ARK KE RO RIOR IO IO ROI I I IIR SOR I RICE ak ake ok ke ofc ake of aki ake ake steak ak 
OO2FCE OFO4 2541+ MVBI 4,R7 2655 * 
OO2FD0O0 OEDS8 2542+ MVBI 8,R6 2656 * IDCB FOR DIRECT PROGRAM CONTROL COMMAND 
002FD2 2B24 25434MVBUF MVFN f83), (R1) 2657 * 
OO2FD4 OFOY 2544+ KVBI gk Q0O031DA 0000 2658 T7VAO1I DC x'o00008 FUNCTION-MODIFIER-DEVICE ADDRESS 
OO2FD6 OAS4O 2545+ MVBI xX'4O!',R2 0031DC 0000 2659 DC X¥'*00008 IMMEDIATE DATA BUFFER 
002FD8 C258 2546+ MVB  R2 (Ripe 2661 COPY T7A03 260CT77 
OO2FDA BEFB 2547+ gjct MVBUF,RE 2662 T7A03 TUIT 
OO2FDC OEOS8 2548+ MVBI 8,R6 26 63+ B* KK ER OC Ro aco akidok acc tot 4k 06 FEB] 6* * 
OO2FDE 7921 002c 2549+ AWI = 44,R1 2664+% 
OO2FE2 BDF7 2550+ JCT  MVBUF,RS 2665+* TEST UNIT 
OO2FE4 4020 1802 FIFO 2551+ MVYWI PIDMS610,PID+t2 2666+* 
OO2FEA 4020 19B8 3170 2552+ MVA FAKETU abCADD1 2667+* DIRECT PROGRAM CONTROL INTERRUPTING CMDS 
OO2FFO 4020 19BA 316C 2553+ MVA DC2PT, ODCADD2 2668+* 
OO2FF6 402C 19C4 0080 2554+ ORI BIT0080,SUPSTAT 2669+* PURPOSE 
OO2FFC 4324 2BEA 2555+ NVA $TUID R3 SET UP BUFFER STORAGE 2670+* 
003000 6F13 18BA ee BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER es 4tt THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE: 
+ _ 
003004 2558+$CONX EgU * 2673+* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X'4X!' FOR DPC WRITE 
003004 C720 19D0 2559+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 26744 2. TWO BYTES OF DATA TO BE USED IN THE SECOND PART OF TARE IDCB, 
003008 6013 2560+ svc RICB RELEASE INTERRUPT CONTROL BLOCK 2675+* m IE, X'0005' TO BE SENT TO THE DEVICE. 
OO300A 6812 2C2cC 2561+ B TURTN* RETURN TO MDI SUPERVISOR 2676+* * 
2562+* 2677+* THIS TEST UNIT PREPARES THE DEVICE AND EXPECTS AN INTERRUPT 
OO0O300E 0009 2563+BEGIN DC A (0009 NUMBER OF LINES TO PRINT 2678+* AND WILL SEND BACK THE CONDITION CODES OF THE I/O AND INTR. 
003010 0008 2564+ DC A(0008 LINE LENGTH = 8 CHAR 2679+* 
003012 5cC5C40C IC2D6D9E3 2565+ DC C'** ARORT* 2680+* CALLING SEQUENCE 
00301A 0028 2566+ DC A (0040) LINE LENGTH = 40 CHA&R 2681+* 
00301C E3E4C9CK&4OCODECIOD 2567+ DC C'TUID IOIN ISB INST SECT ID DATA cSCC ! 2682+* MDI=@TUXX,T7A03,2,0708, EQ, PLNG=6,PARM=FMXXXX'! 
003044 0028 2568+ DC A (0040) LINE LENGTH = 40 CHAR 2683+* . 
003046 4O40sFO40K 04040404 25694+LINET DC ct : 2684+% TURESUL BIT(S) O - 15........ OIO CC, INTR CC 
00306EF 0028 2570+ DC A (0040) LINE LENGTH = 40 CHAR 2685+* : 16 25236 sces 6 ~-INTERROPT STATUS BYTE 
003070 C3D5E3D340C4C3C2F 2571+ DC C'CNTL DCB1 DCB2 DCB3 DCB4& CHAD BYCT ADRS !# 26 86+* = 2S eee aoe CYCLE STEAL STATUS IO/INTR ERROR 
003098 0028 2572+ DC A (0040) LINE LENGTH = 40 CHAR 2687+* ‘ Poe 0 Sage CYCLE STEAL STATUS WORD 4 
00309A 4OKO4O4OROHO4O4OH 25734+LINE2 DC ct t 2688+* . HE = B3.accesecs CYCLE STEAL STATUS WORD 5 
0030C2 0028 2574+ DC A (0040) LINE LENGTH = 40 CHAR 2689+* 
0030C4& C3E260FO4UOC3E260F 2575+ DC C'cs-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 2690+* RETURN CONTROL 
OO030EC 0028 2576+ pc A (0040) LINE LENGTH = 40 CHAR 2691+* 
OOZ0FE 4040408040404 0404 25774+LINE3 DC c' ' 2692+* B TURTN* RETURN TO MDI SUPERVISOR 
003116 0028 2578+ DC A (0040) LINE LENGTH = 4O CHAR 2693+* 
003118 C3E260F840C3E260F 2579+ pc ctcs-8 CS-9 CS-A CS-B CS-C t D6 QU HK HH HH He HK a a 2 a KK 2 KK EK Ko fe CK i oe ee 2 eo 2 2k 2c a a i ag oe fe af fe ate ae ok oie ake ok kok ok 
003140 0028 2580+ DC A (0040) LINE LENGTH = 40 CHAR 0031DE 6F0D 2C2C 2695+T7A03 MVW R7,TURTN SAVE RETURN ADDRESS 
003142 4OK4OKXO4OKOKCO4O404 25814+LINES DC ct t 0031E2 4020 2BEA 7A03 2696+ MVWI xX'7AO38 $TUID SAVE TU ID FOR DISPLAY 
2582+* 0031E8 4424 2BE4 2697+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
00316A 0000 2583+BUFPT DC A a 0031EC 6E03 2F6E 2698+ BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
00316C 300£ 2584+DC2PT DC A (BEGIN) 0031FO 2FA2 2699+ pc A (SERR$) ERROR ADRS FOR INVALID PREP 
00316E 0101 2585+FIXTU DC X'0101' 2700+* 
003170 0101 25864+FAKETU pc x‘'0101° 0031F2 4224 18C8 2701 MVA TURESUL,R2 LOAD ADDR TURESULS BUFF IN REG 2 
OOF1F0 2587+PIDMSG10 EQU X' FIFO! 0031F6 4020 2BEC 0708 2702 MVWI xX'0708!,$IOIN INIT THE CONDITION CODES 
000080 2588+BIT0080 EDU X'0080! 0031FC 6908 189A 2703 MVH TUPARM1,R1 SET UP PARM ADRS 
2589+* 003200 8118 324E 2704 MVB abe TVAO3ZL * AND SET IN FUNCTION-MODIFIER 
2590+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 003204 8028 19D0 324F 2705 MVB DEV ph T7AO3L+1 * FOLLOWED BY THE DEVICE ADRS 
2591+* 00320A 8118 3250 2706 MVB R1 +, f7TAO3L42 * AND SET IN EVEN BYTE DATA 
003172 003A 2592+HEBLK DC A(58 NUMBER OF BYTES TO CONVERT 00320E 8118 3251 2707 MVB R1)+,T7A03L+3 * AND SET IN ODD BYTE DATA 
003174 2BEA 2593+ DC A(S$T ID) FROM ADRS 003212 D020 324E 2708 MVD 7A03L,R0 GET FUNCTION, MODIFIER AND DEV ADRS 
003176 181A 2594+ DC A (TUWORK) AND THE TO ADRS 2709 * * AND THE SECOND WORD OF THE IDCB 
2595 COPY fT7A01 260CT77 003216 680C 324E 2710 IO T7AO3L ISSUE THE I/O COMMAND AND 
2596 T7A01 TUIT 1 00321A 70AE 2711 CPLSR R5 * GET THE I/O CONDITION CODE IN K5 
0597+ 3a ok tok tog Eg RO oo a io icioitok ttc tk 40k 06 F EBT 6* * 00321C 356A 24112 SRL 13,R5 POSITION CC IN THE RESULTS FIELD 
2598+* 00321E C528 2BEC 2713 MVB R5,S51I01N * AND SAVE IT IN THE RESULTS 
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CHANNEL/4962 DISK UNIT 
OBJECT TEXT 
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P/N=6826978 EC=375222 PAGE 10 
COPYRIGHT IBM CORP 1976 
SET UP FOR DELAY 


STMT SOURCE STATEMENT 
MVBI -1,R5 
£ 


T7A03K SVC IDLE WAIT FOR INTERRUPT 
TBTR (Ru IN) HAS IT COME YE 
IN 763M * YES, GET OUT OF DELAY 
JCT  TT7AQ3K,R5 * NO, CHECK FOR TIME OUT 
T7AO03M MVD $SIOIN,TURESUL pur ANY INTR COND CODE FOUND IN 
MVBZ TURESOL+3,R0 CLEAR BYTE 3 OF TURESULS BUFFER 
BAL XIOCS,R6 GET CYCLE STEAL STATUS 
DC A (TO3ER) OIO ERROR 
TBY { 4, ER) EXCEPTION INTERRUPT OCCUR? 
JON O3ER YES - SET CSS INTR ERROR BIT ON 
MVD CSTLS,TURESUL+4 MOVE CSS WORD 4 & 5 IN RESULTS 
X7A03 TXIT * RESULTS AND EXIT 
+X¥7A03 B $CONX RETURN TO MDI CONTROLLER 
$+ EK KER KKK KKK KK KK KKK KKK KK KK KK KK KR OK KOK KK KK KK KK KK KKK KOK KKK KK 
* 
IO3ER TBTS (R2 24) CYCLE STEAL STATUS OIO ERROR 
‘ J 7163 RETURN TO MDT 
: IDCB FOR DIRECT PROGRAM CONTROL COMMAND 
T7A03L DC X'00008 FUNCTION-MODIFIER-DEVICE ADDRESS 
DC X¥'0000! IMMEDIATE DATA BUFFER 
COPY TT7AO4 260CTT7 
T7AO4 TUIT TOIER 
MEH AE RH HH a RR I tak ok KK ok KK HOKE G FEB T 6% * 
*x 
* TEST UNIT 
* CHANNEL INTERFACE TEST 
* PURPOSE 


TO VERIFY THE CHANNEL INTERFACE CAN INTERRUPT ON ALL LEVELS 
CALLING SEQUENCE 


THE HOST WILL PREPARE THE I/O DEVICE TO INTERRUPT ON LEVEL ZERO 
AND CAUSE AN INTERRUPT. WHEN THE INTERRUPT OCCURS, THE LEVEL IS 
COMPARED TO THE EXPECTED LEVEL. THIS IS DONE ON ALL LEVELS. 
LEVEL THREE WILL NOT OCCUR BECAUSE THIS PROGRAM WILL BE RUNNING 
AS A BACKGROUND PROGRAM. 


MDI=STUXX, T7A04,02,0000,EQ 


TURESUL BIT(S) 0 - 10 ........ NOT USED 

eeecewee FALSE STORE PROTECT CHECK 
eveeeeee STORE PROT NOT ON IS ISB 
eceeeees STOR PROT CHECK NOT REPORTED 
esoeeeee INVAL STOR CK NOT ON IS ISB 
eeeseces WRONG CONDITION CODE 
eeeeeeee INVAL STOR ADDR NOT DETECTED 
eecceee- NOT USED 
Stee ew ee CYCLE STEAL STATUS ERROR 
eeceeeese FILE NOT READY 
eeeeeeee OLO CC ERROR 
eoeecee ee WRONG INTERRUPT LEVEL 
eseeeees CYCLE STEAL STATUS INTR ERROR 
eeeeee ee CYCLE STEAL STATUS WORD 4 
CYCLE STEAL STATUS WORD 5 
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* RETURN CONTROL 


B TURTN* RETURN TO MDI SUPERVISOR 


* 
* 
PSPS SESE SEES TST SPP SE PE SESS ESET TSE TTS SES ST SSS STS SS TS SS SSS SS St STS SSP STS Sts 
T7AO0O4 MVW R7,TURTN SAVE RETURN ADDRESS 

SAVE TU ID FOR DISPLAY 

SET UP POINTER ADRS IN RG 


PEER EERE HEHE EH EEE HEE HEHEHE HEHEHE HEH ESE EE HEH HEH HH 
% 


BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
. DC A (TO1ER) ERROR ADRS FOR INVALID PREP 
MVBI 12,R7 CLEAR 'TU' RESULTS BUFFER 
MVBI 0,&3 * 
MVA TORESUL, R2 * 
FFN  R3, (R2) * 
ABI -15,R2 AJUST POINTER TO BEG OF RESULTS BUF 
A IOBLK,R7 RESET DEVICE 
SVC ET * 
MR Me ae Me ae He Me Me eH HK He Me MK eM MK HK HK MK HK HK Ke KM HK HK KK KK 
* TEMPORARY DELAY 


x 
WM Me Hee He Me HK He He He Me He HE Me HEM He HE HE MK Me HK HEM MK Ke HK HK KK 
* 


MVWI X'FFFF',RO 
TEMP SVC IDLES5S 
JCT TEMP,RO * 
MVW SINTL,R1 SAVE CURRENT INTR LEVEL 
MVWI X‘'FFFI',SINTL SET UP INTERRUPT LEVEL FOR PREP 
ITST1 AWI X'10', SINTL ADV INTR LEVEL, STARTING AT 0 
BAL SCONC, R6 CONNECT DEV CNTL BLOCK AND PREP DEV 
DC A TO 1£R) ERROR - DEV COULDN'T BE CONNECTED 
TBTS § Obs & SET EXPECTED ERROR BIT ON 
BAL IOCS, R6 ISSUE CS STATUS OP TO CAUSE INTR 
ERROR - NO CS STATUS AVAILABLE 
WAS THERE AN INTERRUPT ERROR? 
YES - SET APPROPRIATE BIT SWITCHES 
CB Beko eeee ISB = ZERO? 


DELAY ROUTINE TO GET BY BUSY AFTER 
* RESET 
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BNE 701 NO - SET ERROR INDICATOR ON 

CB DEVADD, $ISB+1 DEVICE ADDRESS RETURNED IN ISB? 

BNE TO1B NO — SET ERROR INDICATOR ON 
CONT CWI X'21',$INTL HAS INTR LEVEL COME DOWN TO 2? 

NE Inst * NO, BCH AND CONTINUE TEST 

MVW  TULAST,RO GET LAST VALID STG ADDRESS 

SWI 2, RO DEV LAST VALID STORAGE ADDR FOR CS 

MVW TOBUFF,CSDCB+14 FIRST AVAILABLE STOR LOCATION 
T01H TBTS {Ra XE} SET EXPECTED ERROR 

BAL TOCS, R6 CYCLE STEAL STATUS 

Cc A (TO 1£R) ERROR 

TBTR ER) INTERRUPT ERROR? 

JON 01 YES 

CW CSDCB+14, RO END OF PHYSICAL STORAGE? 
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CHANNEL/4963 DISK UNIT 
OBJECT TEXT 


STMT SOURCE STATEMENT 
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TEST UNIT 





P/N=6826978 


EC=375222 PAGE 10A 


COPYRIGHT IBM CORP 1976 


ATTACHMENT DIAGNOSTIC CHECKOUT 


: PURPOSE 


TO CHECKOUT THE 4963 ATTACHMENT CARD DIAGNOSTICALLY. 


MDI=$TUXX,T7A05,01,00,E0O 
* RETURN CONTROL 


B 


MVW 
MVWI 
MVA 


* CALLING SEQUENCE 


Na~] 


1 
3 
47 


TURTN* 


R7, TUR 


T 
X' 7005" 
OPTN1,R 


e@eu#2e@ee¢eevxs#8sd8es 


READ ACCESS MEMORY FAULT 
GEN DIAG DETECTED FAULT 
OTO ERROR 


NOT USED 

CYCLE STEAL STATUS WD 5 
CYCLE STEAL STATUS WD 6 

I/O AND INTR CONDITION CODES 


RETURN TO MDI SUPERVISOR 


ME HK He EH eK eH I HE i I I 2 ee Re Re 2 he 2h ee EO A IC 2 A Re 2K 2c 2 of ee ee 2 a a 2c a 2 2 2 2 ik ok 2 aK oe ok Kk 
7A05 


SAVE RETURN ADDRESS 
SAVE TU ID FOR DISPLAY 
SET UP POINTER ADRS IN R4& 


2829 JLLT 101G YES 

2830 AWI 26 «CSDCB+ 14 INCREMENT CSS DATA BUFFER ADDR 
2832 T01G CWI <X*FFFO',RO MAX STORAGE? 

2833 JE TO1I YES 

2834 AWI 28,CSDCB+14 FORCE INVALID STG ADDRESS 
2835 TBTS (Rd XE) SET EXPECTED ERROR 

2836 BAL TOCS, R6 CYCLE STEAL STATUS 

2837 DC A(TO1ER) ERROR 

2838 TBTR { 4, ER) INTERRUPT ERROR? 

2839 JOFF TO01fK NO - INV STG ADDR NO REPORTED 
2840 CWI xX'0702',$IOIN ARE COND CODES 7 AND 27? 

2841 JNE  TO1P NO-ERROR 

2842 TWI  X'O4O0',$ISB INVALID STORAGE BIT ON IN ISB? 
2843 JOFF 101 NO-ERROR 

2844 T01J VA  CSBUF,CSDCB+14 CS ADDRESS 

2845 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 
2846 CBI 37,R0 * 

2847 JNE  TO{C JUMP IF NOT 4955 

2848 MVWI X'2000!, CS CONTROL WORD 

2849 EN X'08" ENABLE STORE PROTECT KEY 

2850 TBTS (Ba XE) SET EXPECTED ERROR 

2851 BAL TOCS, RE CYCLE STEAL STATUS TO CAUSE INTER 
2852 DC A (TO TER) ERROR 

2853 TBTR i 4, ER) INTERRUPT ERROR? 

2854 JON 01% YES-FLASE STORE PROTECT KEY 
2855 TO1K AWI xX*'0100",CSDCB SET OR INCREMENT KEYS 

2856 TBTS (Ru XE) SET EXPECTED ERROR 

2857 BAL TOES, R6 CYCLE STEAL STATUS 

2858 DC A (TO 1ER) ERROR 

2859 TBTR 4 4, ER) INTERRUPT ERROR? 

2860 JOFF 101% NO,STOR PROTECT NOT REPORTED 
2861 CWI <X*0702',$SIOIN ARE COND CODES 7 AND 27 

2862 INE  TO1P NO-ERROR 

2863 TWI  X*'0200',$ISB STOR PROT BIT NOT ON IN ISB? 
2864 JOFF T1010 NO-ERROR 

2865 CWI X'2700',CSDCB ALL KEYS CHECKED? 

2866 JNE TOK NO 

2867 DSSP DIS. xX*O8t DISABLE STORAGE PROTECT 

2868 MY¥WI x'20008 RESTORE CS STATUS DCB 

2869 MVA  CSBUF,C * 

2870 TO1C MVH R1-$Ift RESTORE ORIGINAL INTR LEVEL 
2871 MVD CSfL5,T SAVE CSS ERROR STATUS WORDS 
2872 MVD CST12-°T SAVE DIAG. SENSE BYTES 

2873 TXIT RETURN TO MDI 

2874+ B SCONX RETURN TO MDI CONTROLLER 

2 BTS HK HM HH HM He He He He He HE HMC HE KK ee a a OK 2 ee 2 2c 3 2 2h he A a Re 2 a 2 ec a a hc 2h fc ah a ake 2c ae ae ake ae 2c 2K ic ke 2 
2876 * 

2877 TO1Y £TBTS (R2 2) FALSE STORE PROTECT CHECK 
2878 J ssb EXIT 

2879 TO1U0. TBTS (R2,5) STOR PROT NOT ON IN ISB 

2880 J ssh EXIT 

2881 T01X TBYTS (R2,6) STOR PROTECT NOT DETECTED 
2882 J ssh EXIT 

2883 T0190 £TBTS (R2 7) INV STOR BIT NOT ON IN ISB 
2884 3 o1é EXIT 

2885 TO1P TBTS (R2,8) WRONG CONDITION CODE 

2886 R ssb EXIT 

2887 TO1N BTS (R2,9) INVALID STOR ADDR NOT DETECTED 
2888 J 01é EXIT 

2889 TO1L TBT R4 SLE) INTERRUPT ON WRONG LEVEL? 
2890 JOFF 6 NO - SET CSS INTR ERROR BIT ON 
2891 TBTS (R2 14) YES - SET WRONG INTR LVL BIT ON 
2892 J 01¢ RETURN TO MDI 

2893 T01Z TWI X*'0001',CSTL5 CYCLE STEAL STATUS ERROR? 
2894 JON TO1A YES - SET CS STATUS ERROR BIT ON 
2895 TWI  X'0001',CSTLE FILE NOT READY? 

2896 JOFF T01B NO - SET CS STATUS INTR ERR BIT ON 
2897 TBTS (R2 12) SET FILE NOT READY BIT ON 
2898 J 071¢ RETURN TO MDI 

2899 TO01A TBTS (R2 11) CYCLE STEAL STATUS ERROR 

2900 B ONT CONTINUE WITH TEST 

2901 T01B TBTS (R2,15) CYCLE STEAL STATUS INTR ERROR 
2902 3 1¢ RETURN TO MDI 

2903 TO1ER TBTS (R2 13) OIO CC ERROR 

2904 J ssh RETURN TO MDI 

2905 * 

2906 CPUID EQU  x'232! 

2908 COPY T7A05 260CT77 

2909 T7A05 TUIT 

2910 WE HK ee HA a Re ee 3 He 2 I Ke Ee 2 He i He a OK KK OK i KKK KK KKK KK KKKOH FEB] 6* * 
2911 
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I7A01 --- CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE 11 I7A01 --- CHANNEL/4963 DISK UNIT P/N=6826978 EC=375222 PAGE 11A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 19764 
0033D0 6803 2F6E 29444 BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL DECLARED NAME ATTRIBUTES AND REFERENCES 
003304 2FA2 2945+ DC A (SERPS) ERROR ADRS FOR INVALID PREP 
29464+* 2489 $C ONC ADDRESS. HEX LOCATION (00002F6E) IN CSECT(I7A01 ) LENGTH (2) 
0033D6 D025 18C8 2947 MVDZ TURESUL,RO CLEAR TU RESULTS STATUS AREA 2698 2785 2806 2944 
0033DA D025 18C8 2948 MVDZ TURESUL, RO * 2558 $C ONX ADDRESS. HEX LOCATION (00003004) IN CSECT(I7A01 ) LENGTH (1) 
0033DE D025 18C8 2949 MVDZ TURESUL,RO * 2653 2727 2874 3001 
0033E2 4224 18C8 2950 MVA  TURESUL, R2 LOAD ADDR OF RESULTS AREA IN REG 1614 $DGRD ADDRESS. HEX LOCATION (00002E36) IN CSECT(I7A01 ) LENGTH (6) 
0033E6 4020 2CCA 35AE 2951 MVA RDBUF, RDDCB+ 14 LOAD ADDR OF READ BUFFER IN DCB 2955 2964 
0033FC 4020 2CAA 34AE 2952 MVA WRBUF,WRDCB+14 LOAD ADDR OF WRITE BUFFER IN DCB 1611 SDGWR ADDRESS. HEX LOCATION(00002E2C) IN CSECT(I7A01 ) LENGTH (6) 
0033F2 4020 2CBC 2012 2953 ROS MVWI X"20 12' »RDDCB LOAD ROS CNTL WD IN DCB 2982 
0033F8 4020 2cc8 0004 2954 MVWI RDDCB# 12 LOAD BYTE CNT IN DCB 2531 SERRS ADDRESS. HEX LOCATION (00002FA2) IN CSECT(1I7A01 ) LENGTH (6) 
0033FE 6E03 2E36 2955 BAL sheep k EXECUTE ROS TEST 2699 2945 
003402 3494 2956 DC i (o1OER) BRANCH IF TEST FAILED TO EXECUTE 1195 $INTL ADDRESS. HEX LOCATION(00002C2A) IN CSECT(I7A01 ) LENGTH (2) 
003404 4CA1 2957 TBTR DID A DEVICE END INTR OCCUR? 2406 2498 2803 2804 2805 2817 2870 
003406 6A00 349A 2958 BON oSER. NO - ROS TEST FAILURE 1160 $IOIN ADDRESS. HEX LOCATION (09002BEC) IN CSECT (I7A01 L LENGTH (2) 
00340A 882B 35AF 35B0 2959 CW RDBUE, RDBUF+2 DO CHECKSUM VALUES EQUAL? 1595 2260 2320 2400 2437 2500 2629 2640 2651 
003410 6801 349A 2960 BNE ROSER NO - SET TU RESULTS BIT (MISCOMPARE) 2702 2713 2719 2840 2861 2999 
2961 * 1161 SISB ADDRESS. HEX LOCATION (00002BEE) IN CSECT (17A01 ) LENGTH (2) 
003414 4020 2cBC 2013 2962 MVWI X'2013',RDDCB LOAD DIAG READ CNTL WORD IN DCB 1596 2261 2401 2442 2501 2813 2815 2842 2863 
00341A 4020 2cc8 0100 2963 MVWI 256 pDDEBt 12 LOAD BYTE CNT IN DCB 1145 $LE ABSOLUTE. HEX VALUE (00000026) 
003420 6E03 2E36 2964 BAL $DGRD, R6 EXECUTE ATTCH DIAG READ TEST 2266 2408 2889 
003424 3494 2965 DC A (OTOER) BRANCH IF TEST FAILED TO EXECUTE 1159 $TUID ADDRESS. HEX LOCATION (OO0O02BEA) IN CSECT (I7A01 ) LENGTH (2) 
003426 4CA1 2966 TETR (R4,ER) DID A DEVICE END INTR OCCUR? 1205 2555 2593 2624 2696 2783 2942 
003428 6A00 349E 2967 BON DGRDD NO -— ATTCH DIAG READ FAILURE 1587 $SWRTO ADDRESS. HEX LOCATION(O00002DE6) IN CSECT(I7A01 ) LENGTH (4) 
00342C 4724 0080 2968 MVWI 128,R7 SET UP EXPECTED DATA BUFFER (WRBUF) 2988 2994 
003430 4324 34AR 2969 MVA WRBOF, R3 * 1608 SURT1 ADDRESS. HEX LOCATION (00002E26) IN CSECT(1I7A01 ) LENGTH (2) 
003434 O0D00 2970 MVBI 0O,R5 * 1605 
003436 CDD8 2971 AGAIN MVW R5 {R3 + * 42 @CALL ABSOLUTE. HEX VALUE (00000201) 
003438 7DA1 0101 2972 AWI x'6101",R5 * 995 
00343C BFFC 2973 Jct AGAIN, R@ x 102 @DCADD1 ADDRESS. HEX LOCATION (000019B8) IN CSECT(I7A01 ) LENGTH (1) 
00343E 4724 0100 2974 MVWI 256,R7 GET NUMBER OF BYTES TO CHECK 2552 
003442 4324 35AE 2975 MVA RDBOF,R3 GET ADDRESS OF DATA READ 103 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A01 ) LENGTH (1) 
003446 4524 34AE 2976 MVA WRBUF,RS5 GET ADDRESS OF EXPECTED DATA 2553 
OO344A 2BA6 2977 CFNEN eal (R5) DATA AS EXPECTED? 39 @FIXT ABSOLUTE, HEX pee esa 
00344C 1828 2978 JN GRDS NO - DIAG READ COMPARE ERROR 554 569 572 647 650 665 680 
2979 * 695 710 725 740 755 770 785 800 815 
0OO344E 4020 2C9C 0014 2980 MVWI X'0014',WRDCB LOAD ATTCH DIAG WRITE CNTL WORD 830 845 860 875 890 905 920 935 950 
003454 4020 2CA8 0100 2981 MVWI 256 WRDCB+ 12 LOAD BYTE CNT 965 980 1013 1016 
00345A 6E03 2E2C 2982 BAL S$DGHR,R EXECUTE ATTCH DIAG WRITE TEST 44 @GOTO ABSOLUTE. HEX VALUE (00000200) 
00345E 3494 2983 DC a ereeR) BRANCH IF TEST FAILED TO EXECUTE 641 
003460 4CA1 2984 TBTR (R4,ER) DID ANY PARITY ERRRORS OCCUR? 46 @NVLD ABSOLUTE. HEX VALUE (00000600) 
003462 121F 2985 JON DGWkT YES - FAULT DETECTED 528 
2986 * 38 @QUES ABSOLUTE. HEX VALUE (00000100) 
003464 4020 2F60 OOOE 2987 MVWI 'OOOE', IOMOD LOAD READ ACCESS MEMORY IDCB MOD 525 
00346A 6E03 2DE6 2988 BAL SWRTO R6 EXECUTE READ ACCESS MEMORY TEST 45 OT U XX ABSOLUTE. HEX as ae ae, 
O0O346E 3494 2989 DC A (O1OFR) BRANCH IF TEST FAILED TO EXECUTE 530 542 557 975 587 599 611 626 653 
003470 4CA1 2990 TBTR ) ANY FAULT DFTECTED BY TEST? 668 683 698 TAS 728 743 7158 773 788 
003472 1219 2991 JON AMER YES - SET ERROR BIT ON IN STATUS WD 803 818 833 848 863 878 893 908 923 
2992 * 938 953 968 983 1001 
003474 4020 2F60 0001 2993 MVWI 1,IOMOD SET UP ATTCH GEN IDCB MODIFIER 2971 AGAIN ADDRESS. HEX LOCATION (00003436) IN CSECT(I7A01 ) LENGTH (2) 
0O0O347A 6E03 2DE6 2994 BAL $WRTO Be EXECUTE ATTCH GEN DIAG TEST 2973 
0O0O347E 3494 2995 DC A (OTOER) BRANCH IF TEST FAILED TO EXECUTE 2563 BEGIN ADDRESS. HEX LOCATION(0000300E) IN CSECT(I7A01 ) LENGTH (2) 
003480 4CA1 2996 TBTR ‘ 4 FAULT DETECTED WITH GEN DIAG TEST? 25 
003482 1213 2997 JON EYER. YES -— SET ERROR BIT ON IN STATUS WD 2588 BITOO80 ABSOLUTE. HEX VALUE (00000080) 
003484 9028 2C12 18CA 2998 RETRN MVD CSTL5, TURESUL+#2 LOAD CYCLE STEAL STATUS ERROR WDS 2554 
00348A 8828 2BEC 18CE 2933 va. $IOIN, TURESUL+46 LOAD I/O AND INTR CONDITION CODES 2583 BUF PT oo HEX LOCATION (0000316A) IN CSECT(I7A01 ) LENGTH (2) 
003490 6802 3004 3001+ B SCONX RETURN TO MDI CONTROLLER 1149 CE ABSOLUTE. HEX VALUE (0000002A) 
3002 + 8 RK IC III I RO I I I aK Rok a kai i Ia ak ak ake kt ka ok ie kc fe ie ak deak ok 2245 2359 2429 
| 3003 * 1234 CICB ABSOLUTE. HEX VALUE (00000014) 
003494 4AKE 3004 OIOER TBTS (R2,6 SET OIO ERROR BIT ON 2495 2628 
003826 4A 40 3005 IOER1 TBTS R2¢0 SET STATUS BIT ON - TEST FAILED 1331 CLDCB , ABDRESS. HEX LOCATION (00002C4C) IN CSECT(I7A01 ) LENGTH (2) 
00349A 4A4I 3007 ROSER TBTS (R2,1) ROS TEST ENCOUNTERED A FAULT 2817 CONT ADDRESS. HEX LOCATION (000032B6) IN CSECT(I7A01 ) LENGTH (6) 
00349C 5O0FC 3008 J OFR1 2900 
00349B 4A42 3009 DGRDD TBTS {R2 2) DIAG READ DETECTED FAULT HS DATA BUS . 2906 CPUID ABSOLUTE. HEX VALUE (00000232) 
0034A0 5OFA 3010 J OER1 2845 
OO34A2 4A43 3011 DGWRT TBTS R2,3) DIAG WRITE DETECTED PARITY ERROR 1147 cs ABSOLUTE. HEX VALUE (00000028) 
0034A4 5SOF8 3012 J OFR1 2246 brit 2357 2398 2427 
OO34A6 4aAd4y 3013 RAMER TBTS (R2,4) READ ACCESS MEMORY TEST FAULT 1148 CSA ABSOLUTE. HEX VALUE (00000029) 
0034A8 50F6 3014 J oFR1 2432 
OO34AA 4A45S 3015 GENER TBTS R2,5) GEN DIAG DETECTED FAULT 1178 CSBUF ADDRESS. HEX LOCATION (00002COA) IN CSECT (I7A01 ) LENGTH (1) 
0034AC SOF4 3016 J OER1 1376 1589 2257 2844 2869 
3017 * 1369 CSDCB ADDRESS. HEX LOCATION(0 o02cac) IN CSECT(I7A01 ) LENGTH (2) 
0034AE 00000000000000000 3018 WRBUF DC 128F'0! 2247 2822 2828 2830 2834 2844 2848 2855 2865 
0035AE 00000000000000000 3019 RDBUF DC 128F*O! 2868 2869 
000000 3020 END 1183 CSTL5 ADDRESS. HEX LOCATION(00002C12) IN CSECT(I7A01 ) LENGTH (2) 
2725 2871 2893 2998 
1184 CSTL6 > ABRRESS. HEX LOCATION (00002C14) IN CSECT(I7A01 ) LENGTH (2) 
1190 CST12 ADDRESS. HEX LOCATION(00002C20) IN CSECT(I7A01 ) LENGTH (2) 
1168 DCBUF jABBRESS: HEX LOCATION (OOOO2PFA) IN CSECT(I7A01 ) LENGTH (1) 
2584 DC2PT sAPRRESS. HEX LOCATION(0000316C) IN CSECT(I7A01 ) LENGTH (2) 
105 DEVADD ADDRESS. HEX LOCATION (09001900) IN CSECT (1I7A01 ) LENGTH (1) 
1198 2450 2459 255 05 2815 
1163 DEV1 ADDRESS. HEX LOCATION (O00002BF2) IN CSECT(1I7A01 ) LENGTH (2) 
1166 DEV4 ADDRESS. HEX LOCATION (OO0002RF8) IN CSECT(1I7A01 ) LENGTH (2) 
1320 DGDCB ADDRESS. HEX LOCATION(00002C3C) IN CSECT(I7A01 ) LENGTH (2) 
3009 DGRDD ADDRESS. HEX LOCATION (0000349E) IN CSECT(I7A01 ) LENGTH (2) 
3011 DGWRT ADDRESS. HEX LOCATION (000034A2) IN CSECT(I7A01 ) LENGTH (2) 
2645 DLYD ADDRESS, HEX LOCATION (000031C0) IN CSECT(I7A01 ) LENGTH (2) 
2867 DSSP _ ADDRESS. HEX LOCATION(0000335E) IN CSECT(I7A01 ) LENGTH (2) 
2878 2880 2882 2886 2904 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
516 1018 103 
1019 ENTPT ADDRESS. HEX LOCATION (0000293C) IN CSECT(I7A01 ) LENGTH (1) 
47 EQ ABSOLUTE. HEX ¥ALUE (00000000) 
533 545 560 578 590 602 614 629 671 
686 701 716 731 746 761 776 791 B06 
821 851 866 881 911 926 941 1004 
1140 ER ABSOLUTE. HEX VALUE (00090021) 
1598 2263 2284 2367 2409 2434 2723 2811 2826 
2838 2853 2859 2957 2966 2984 2990 2996 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1220 EXIT ABSOLUTE. HEX VALUE (00000006) 638 N00015 ADDRESS. HEX LOCATION (000026C6) IN CSECT(I7A01 ) LENGTH (2) 
25 86 FAKETU >ABDRESS. HEX LOCATION (00003170) IN CSECT(I7A01 ) LENGTH (2) 641 N00016 ADDRESS, HEX LOCATION (000026CA) IN CSECT(I7A01 ) LENGTH (2) 
1068 F00008 ADDRESS. HEX LOCATION(00002A58) IN CSECT(I7A01  ) LENGTH(1) 647 N00017 ADDRESS» HEX LOCATION(000026D6) IN CSECT(I7A01 ) LENGTH (2) 
1072 F00010 ADDRESS. HEX LOCATION(00002A8A) IN CSECT(I7A01  ) LENGTH(1) 650 N00018 ADDRESS, HEX LOCATION (000026DA) IN CSECT(I7A01 ) LENGTH (2) 
1048 F00017 ADDRESS. HEX LOCATION (00002970) IN CSECT(I7A01 _) LENGTH(1) 653 N00019 ADDRESS. HEX LOCATION(000026DE) IN CSECT(I7A01  ) LENGTH(2) 
A TTS CE 665 N00020 —«-ABDRESS. HEX LOCATION (000026F2) IN CSECT(I7A01 ) LENGTH (2) 
1052 F00058 ADDRESS. “HEX LOCATION (00002996) Tu CSECT (17401 ) LENGTH(1) 668 N00021 ADDRESS; HEX LOCATION (000026F6) IN CSECT(I7A01 ) LENGTH (2) 
1064 F00085 ADDRESS. HEX LOCATION (00002A38) IN CSECT(I7A01  ) LENGTH(1) 680 N00022 ADDRESS. HEX LOCATION (0000270C) IN CSECT(I7A01 ) LENGTH (2) 
1078 F00097 ADDRESS. HEX LOCATION(00002AC4) IN CSECT(I7A01  ) LENGTH(1) 683 N00023 ADDRESS, HEX LOCATION(00002710) IN CSECT(I7A01 ) LENGTH (2) 
1090 F00257 ADDRESS. HEX LOCATION (00002B66) IN CSECT(I7A01  ) LENGTH(1) 695 N00024 ADDRESS. HEX LOCATION (00002726) IN CSECT(I7A01 ) LENGTH (2) 
1094 F00266 {DRESS. HEX LOCATION (00002B7E) IN CSECT(I7A01  ) LENGTH(1) 698 N00025 ADDRESS, HEX LOCATION (0000272A) IN CSECT(I7A01 ) LENGTH (2) 
3015 GENER ADRESS. HEX LOCATION(000034AA) IN CSECT(I7A01  ) LENGTH(2) 710 N00026 ADDRESS. HEX LOCATION (00002740) IN CSECT(I7A01 ) LENGTH (2) 
2592 HEBLK ADDRESS. HEX LOCATION (00003172) IN CSECT(I7A01  ) LENGTH (2) 713 N00027 ADDRESS, HEX LOCATION (00002744) IN CSECT(I7A01 ) LENGTH (2) 
1240 HTOE ,ABSOLUTE. HEX VALUE (0000001A) : 725 N00028 ADDRESS. HEX LOCATION (0000275A) IN CSECT(I7A01 ) LENGTH (2) 
12 16 IDLE ABSOLUTE, HEX VALUE (00000002) 728 N00029 ADDRESS. HEX LOCATION(0000275E) IN CSECT(I7A01 |) LENGTH (2) 
1217 IDLES “ABSOLUTE. HEX VALUE (00000003) 740 N00030 ADDRESS. HEX LOCATION (00002774) IN CSECT(I7A01  ) LENGTH(2) 
1461 ID00 TADDRESS, HEX LOCATION (00002D26) IN CSECT(I7A01  ) LENGTH(2) 743 N00031 ADDRESS, HEX LOCATION (00002778) IN CSECT(I7A01  ) LENGTH(2) 
1142 IN ABSOLUTE, HEX VALUE (00000023) 755 N00032 ADDRESS. HEX LOCATION(0000278E) IN CSECT(I7A01 ) LENGTH(2) 
2459 INTBL "ADDRESS: HEX LOCATEON (00005766) IN CSECT(I7A01  ) LENGTH(2) 758 N00033 ADDRESS. HEX LOCATION (00002792) IN CSECT(I7A01  ) LENGTH (2) 
2354 INTER “ADDRESS. "HEX LOCATION (Q0002ECA) IN CSECT(I7A01. ) LENGTH(2) 770 N00034 ADDRESS. HEX LOCATION (000027A8) IN CSECT(I7A01  ) LENGTH(2) 
2363 INTES oADBRESS. HEX LOCATION (00002EE2) IN CSECT(I7A01  ) LENGTH (2) 773 N00035 ADDRESS, HEX LOCATION(000027AC) IN CSECT(I7A01 ) LENGTH(2) 
2367 INTET ADDRESS. HEX LOCATION (0O002EEA) IN CSECT(I7A01 ) LENGTH (2) 785 N00036 ADDRESS. HEX LOCATION (000027C2) IN CSECT(I7A01 ) LENGTH (2) 
2394 INTOK ADDRESS. HEX LOCATION(Q0002EEE) IN CSECT(I7AQ1  ) LENGTH(2) 788 N00037 ADDRESS, HEX LOCATION (000027C6) IN CSECT(I7A01 ) LENGTH (2) 
63 INTRNL ABSOLUTE. HEX VALUE (00000000) 800 N00038 ADDRESS. HEX LOCATION (000027DC) IN CSECT(I7A01 ) LENGTH (2) 
2416 INTRX ADDRESS. HEX LOCATION (00002F1E) IN CSECT(I7A01  ) LENGTH(2) 803 N00039 ADDRESS, HEX LOCATION (000027E0) IN CSECT(I7A01 ) LENGTH (2) 
2397 INTR1 ADBRESS. HEX LOCATION (00002EF6) IN CSECT(I7A01  ) LENGTH(2) 815 NOOO4O ADDRESS. HEX LOCATION(000027F2) IN CSECT(I7A01 ) LENGTH (2) 
2402 INTR2 ADDRESS. HEX LOCATION (00002F04) IN CSECT(I7A01  ) LENGTH(1) 818 NooO41 ADDRESS. HEX LOCATION (000027F6) IN CSECT(I7A01 ) LENGTH (2) 
2410 INTR3 ADDRESS. HEX LOCATION (00002F12) IN CSECT(I7A01  ) LENGTH(2) 830 N00042 ADDRESS. HEX LOCATION (0000280C) IN CSECT(I7A01 ) LENGTH (2) 
2450 IOBLK jABRRESS. HEX LOCATION (00002F5A) IN CSECT(I7A01 ) LENGTH(2) 833 N00043 ADDRESS, HEX LOCATION(00002810) IN CSECT(I7A01 ) LENGTH (2) 
2452 IODCB jBBPRESS, HEX LOCATION (00002F5E guN CSECT(T7A01 |) LENGTH (2) B45 NOOO44 ADDRESS. HEX LOCATION (00002824) IN CSECT(I7A01 ) LENGTH (2) 
soos rons Ribas d ae Headed od hSduad? su 2eeercrmaor y umvera ca ote poaaes, pjaneg, maT tacerzoesneoeze2m) ox SeacTIETAGT } LeneeE a 
2453 LOMOD = ADDRESS. HEX LOCATION (00005F60) IN CSECT(I7A01 ) LENGTH(2) eee ee | AB ee er eee een) laren tes 
2730 IO3ER "ADDRESS, HEX Loca? Ox (06605245) IN CSBer (17001 ) LENGTH (2) a eee isa Bg ee ee ee eer Oyen enn 
2805 ITsT1 * ADDRESS- HEX LOCATION (0000328A) IN CSECT(I7A01  ) LENGTH (6) ee nena 1 Sa aks ka he pet a 
37s T7A01 oOo cin. START (00002500) LENGTH(4526) ESDID(1) 878  Nnooo4dg ADDRESS. HEX LOCATION (00002858) IN CSECT(I7A01 ) LENGTH (2) 
2569 LINE1 ADDRESS. HEX LOCATION (00003046) IN CSECT(I7A01  ) LENGTH(40) ae eared Meo ee ee ae ener a 
1162 LSTIO eR DRESS. HEX LOCATION (00002BF0) IN CSECT(I7A01  ) LENGTH(2) es eae ies Be eee a PENSE) 
1139 MT ae oopeee. HBX FALUE (00000020) 905 N00052 ADDRESS. HEX LOCATION (00002886) IN CSECT(I7A01 ) LENGTH (2) 
2543 MVBUF eI DDRESS. HEX LOCATION (00002FD2) IN CSECT(I7A01  ) LENGTH(2) oe pug DT Bog te eon eee eee: Se EENC TEC) 
1151 oe oy Sotan en ek VALUE (0000002C) 920 N00054 ADDRESS. HEX LOCATION (000028A0) IN CSECT(I7A01 ) LENGTH (2) 
1146 a athe HEX VALUE (00000027) 923 N00055 ADDRESS. HEX LOCATION (000028A4) IN CSECT(I7A01 ) LENGTH (2) 
525 N00001 eS ODRESS. HEX LOCATION (00002610) IN CSECT(I7A01  ) LENGTH(2) ce eee beg er eee See eee. ENGI) 
528 nN00002 ADDRESS. HEX LOCATION (00002614) IN CSECT(I7A01  ) LENGTH(2) = splat ies, Oh ey ENTE) 
530 N00003 ADDRESS. HEX LOCATION (00002616) IN CSECT(I7A01  ) LENGTH(2) sa aici BBG ee ee ee ee ene a Bere) 
542 No0004 RBDRESS- HEX LOCATION (0000262C) IN CSECT(I7A01  ) LENGTH(2) ts one Peg Oag ae eee ne ac ene n 2) 
554 N00005 ADDRESS. HEX LOCATION (0000263E) IN CSECT(I7A01  ) LENGTH(2) on ara goo) ee nee ener Ue eee ne emer Cane 3h enna) 
557 N00006 ADDRESS. HEY LOCATION (00002642) IN CSECT(I7A01  ) LENGTH(2) aoe saan poo eh ee ee er “een 
569 N00007 ADDRESS. HEX LOCATION (00002658) IN CSECT(I7A01  ) LENGTH(2) a ee Pope ce pe ge eee eee ee eree. Wh epee 
572 N00008 ADDRESS. HEX LOCATION(0000265C) IN CSECT(I7A01 ) LENGTH(2) a suieeaae B01 OGge ee erat, Eee eee) 
575 N00009 ADDRESS. HEX LOCATION (00002660) IN CSECT(I7A01  ) LENGTH(2) aan kas Bh ee ee ee eens | ere 
587 N00010 ADDRESS. HEX LOCATION (00002676) IN CSECT(I7A01  ) LENGTH(2) ai ee S07, Obd  e ene, ) ee 
599 N00011 ADDRESS. HEX LOCATION (00002688) IN CSECT(I7A01  ) LENGTH(2) wee ennai BA ee en ay eae ee eee, Shenae 
611 N00012 ADDRESS. HEX LOCATION (0000269A) IN CSECT(I7A01  ) LENGTH(2) tere saan SIS M002 en eee ne: a ERea a) 
623 N00013 ADDRESS. HEX LOCATION (000026AC) IN CSECT(I7A01  ) LENGTH(2) me = BT Oak en ee 
351 3004 OIOER ADDRESS. HEX LOCATION (00003494) IN CSECT(I7A01  ) LENGTH(2) 
6 26 N00014 ADDRESS. HEX LOCATION(000026B0) IN CSECT(I7A01 ) LENGTH(2) 2956 2965 2983 2989. 2995 
354 | 612 57 ON ABSOLUTE. HEX VALUE (00000200) 
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